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based  tool  that  allows  users  of  a  network  system  to 
communicate  with  other  users  through  an  electronic  mail 
system.  EMAIL  is  a  memory-resident  network  messaging 
system  designed  to  be  used  within  a  planning  room 
environment  utilizing  a  network  host  to  support  remote 
user  terminals.  The  system  can  be  activated  by  any  node 
on  the  network  to  communicate  with  either  another  node  or 
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PURPOSE 


This  document  is  intended  to  be  used  by  personnel  who 
will  be  actually  using  the  EMAIL  system.  It  does  not 
explain  any  of  the  design  specifications.  This  user  guide 
will  list  the  basic  hardware/software  requirements  to  run 
the  EMAIL  system.  It  is  assumed  that  the  EMAIL  system  has 
already  been  installed  and  is  ready  for  use.  The  System 
Programmer  Guide  and  the  Facilitator  User  Guide  discuss  in 
greater  detail  design  specifications  and  installation 
procedures . 

INTRODUCTION 

This  document  is  a  guide  to  the  use  of  the  Network 
Messaging  System  (EMAIL) ,  a  computer-based  tool  which 
allows  users  of  the  network  to  communicate  with  other 
individuals  through  an  electronic  mail  system.  EMAIL  is  a 
package  of  software  programs  and  procedures  designed  to 
enable  users  of  the  network  to  communicate  with  other 
users  during  such  sessions  as  an  Electronic  Brainstorming 
Session  (EBS) .  These  type  of  sessions  are  conducted  on  a 
network  of  personal  computer  workstations  linked  together 
on  a  local  area  network  (LAN)  and  controlled  by  another 
personal  computer  called  a  server.  The  objective  of  the 
EMAIL  system  is  to  provide  the  opportunity  for  various 
users  to  communicate  privately  or  publicly  with  other  users 
such  that  the  interchange  of  ideas,  information,  concerns, 


etc.,  is  stimulated  for  the  ultimate  benefit  of  the  group's 
objectives . 

With  the  EMAIL  system,  communication  between  users  is 
conducted  through  the  use  of  individual  workstations.  Each 
participant  is  provided  with  the  EMAIL  system  as  a  resident 
background  process  as  well  as  two  on-line  .COM  programs. 
The  EMAIL  system  main  menu  can  be  entered  or  exited  at  any 
point  without  disturbing  the  user's  current  screen 
display.  The  user  is  informed  of  "new  mail"  by  both  audio 
and  visual  means.  Also,  the  ability  to  determine  who  else 
is  logged  onto  the  network  is  provided  by  accessing  an  on¬ 
line  USERNAME  LIST.  The  EMAIL  system  is  extremely  user- 
friendly  in  that  it  is  almost  totally  menu  driven  with 
clear  message  prompts.  A  user  can  "broadcast"  a  message  to 
all  users  on  the  system,  send  individual  mail  messages,  or 
utilize  the  SEND.COM  function  (from  the  DOS  prompt)  to  send 
a  short  "screen  note".  Mail  messages  are  automatically 
saved  but  can  be  deleted  by  the  user  if  desired. 

The  main  advantage  of  the  EMAIL  system  is  that  it  allows 
the  private  (or  public)  communication  between  users  as  a 
support  tool  to  the  primary  session  in  progress.  The 
person  who  initializes  the  EMAIL  system,  the  facilitator, 
also  has  the  option  of  keeping  a  log  of  all  mail  messages 
sent  between  users.  This  log  allows  for  later  analysis  or 
research  of  session  effectiveness.  Participants  will  not 
be  aware  of  the  log  being  kept  unless  the  facilitator 


informs  them. 


HARDWARE  AND  SOFTWARE  REQUIREMENTS 

The  EMAIL  system  software  is  run  on  a  local  area  network 
(LAN).  In  this  environment  there  are  two  machine  types, 
individual  workstations  and  a  server  machine  which  controls 
the  individual  workstations.  The  general  hardware  and 
software  requirements  for  operating  the  EMAIL  system  are 
listed  in  tables  2,  3,  4,  and  5.  Keep  in  mind  these  are 
minimum  requirements.  Performance  can  be  improved  with 
more  advanced  computers. 

INSTALLATION  INSTRUCTIONS 

Individual  users  will  not  normally  be  required  to 
install  the  EMAIL  system  on  their  individual  workstations. 
There  are  two  ways  in  which  the  EMAIL  system  can  be 
initialized  at  user  workstations.  The  first  way  is  the 
most  common.  In  this  method  the  facilitator  prepares  and 
initializes  the  EMAIL  system  from  the  server's  Central 
Control  Menu  located  in  the  C:\SESSMAN  directory.  This 
relieves  the  user  from  any  action,  other  than  logging  a 
username  onto  the  network.  The  facilitator,  when 
initializing  the  EMAIL  system  from  the  server,  does  not 
have  the  capability  to  initialize  individual  workstations. 
There  are  times,  such  as  a  late  arrival  to  a  session,  where 
a  workstation  may  need  to  be  initialized.  The  following 
paragraph  provides  the  input  requirements  for  EMAIL  system 


initialization  at  an  individual  workstation  on  the  network. 


First,  ensure  that  the  EMAIL  system  is  not  already 
loaded  into  memory.  This  can  be  easily  checked  by  pressing 
a  SHIFT/F7 .  If  the  EMAIL  main  menu  comes  up  on  the  screen, 
then  the  only  activity  which  the  new  or  late  user  needs  to 
accomplish  is  logging  a  username  onto  the  system.  From  the 
DOS  prompt,  simply  type: 

LOGON  < ENTER > 

This  will  invoke  the  program  which  logs  the  user  onto  the 
system.  It  will  erase  any  previous  username  that  was 
assigned  to  that  workstation  (figure  1) . 

If  the  EMAIL  main  menu  did  not  come  up  on  the  screen  then 
the  entire  system  must  be  loaded  into  memory.  From  the  DOS 
prompt,  simply  type: 

GOMAIL  < ENTER > 

This  command  allows  the  user  to  logon  and  loads  the  EMAIL 
system  into  memory.  A  message  will  be  displayed  on  the 
screen  when  the  system  is  ready  for  use,  see  figure  2. 


OPERATING  INSTRUCTIONS 


The  following  list  of  items  provides  information  on  each 
EMAIL  popup  screen  and  the  options  available  within  each. 
Where  appropriate,  an  explanation  is  given  of  the  program 
control .  This  section  assumes  that  the  SHIFT/F7  key 
sequence  has  already  been  entered  by  the  user. 


EMAIL  Main  Menu  (figur< 


Keyboard  Entry  -  use  the  up/down  and/or  arrow 


keys  to  select  one  of  the  following  options: 


asasas  >>>»»- 


■>  Send  Messages 


passes  control  to  user  list 


question  menu, 


->  View  Received  Messages 


passes  control  to  the  view 


messages  screen 


->  Return  to  previous  screen 

**  passes  control  back  to  the  pro¬ 
cess  which  was  running  before  the  EMAIL  main  menu  was 
invoked . 

The  user  can  also  press  the  ESCAPE  key  to  exit  the  EMAIL 
menu.  Program  control  returns  to  the  previous  screen 
display . 


2 •  User  List  Question  Screen  (figure  4) 

Keyboard  Entry  -  press  "y"  to  display  a  list  of 
usernames  that  are  currently  logged  on  the  system. 


list . 


passes  control  to  the  username 


Keyboard  Entry  -  press  "n"  to  continue  on  to  the 


next  screen  (figure  6) . 


**  passes  control  to  name  entry 


screen , 


3 .  Username  List  Screen  (figure  5) 

Keyboard  Entry  -  press  the  "ESCAPE"  key  to  exit 


this  screen. 


**  control  passes  to  main  menu. 
Keyboard  Entry  -  press  INSERT  key  to  toggle 
between  insert  and  overwrite  modes. 

6 .  View  Received  Messages  Screen  (figure  8) 

Keyboard  Entry  -  press  F2  to  display  next  new 
waiting  mail  message. 

Keyboard  Entry  -  press  F3  to  reply  to  the  mail 
message  you  are  currently  viewing. 

**  control  passes  to  the  screen 

editor . 

Keyboard  Entry  -  press  F4  to  forward  the  mail 
message  you  are  currently  viewing. 

**  control  passes  to  username 

question  screen. 

Keyboard  Entry  -  press  F5  to  view  saved 

messages . 

Keyboard  Entry  -  press  F6  to  delete  the  saved 
message  you  are  currently  viewing. 

Keyboard  Entry  -  press  the  ESCAPE  key  to  exit 
this  screen. 

**  control  passes  to  main  menu. 


7 .  Screen  Notes  (figures  10) 

Keyboard  Entry  -  from  the  DOS  prompt,  enter  SEND 


to  invoke  the  SEND.COM  program  (figure  10) . 


Keyboard  Entry  -  from  the  DOS  prompt,  enter  SEND 


and  the  username  of  the  person  you  are  sending  to.  For 
Example: 


SEND  JOESMITH  < ENTER >  ] 

Keyboard  Entry  -  from  the  DOS  prompt,  enter 
SEND,  username  of  the  person  you  are  sending  to,  and  the 
message  you  want  sent.  For  example:  ! 

SEND  JOESMITH  THIS  IS  THE  MESSAGE!  < ENTER >  j 

i 

I 

8 •  Screen  Note  Display  Screen  (figure  11) 

The  EMAIL  system  will  automatically  display  screen  notes  to 
the  user.  Therefore,  the  user  who  received  the  SEND 
message  only  needs  to  indicate  to  the  system  when  to  remove 
the  message  from  his  or  her  workstation  screen. 

Keyboard  Entry  -  press  "c"  to  delete  message  from 
screen,  see  figure  11  for  an  example  of  this  screen. 

For  a  summary  of  the  main  program  controls  used  in  the 
EMAIL  system,  see  table  1. 


SPECIAL  NOTES 

There  are  two  particular  situations  in  which  the  EMAIL 
system  will  not  perform  as  previously  discussed.  This  is 
due  to  the  safety  features  built  into  the  software  that 
prevents  use  of  the  EMAIL  system  under  inappropriate 


circumstances . 


The  first  situation  will  occur  if  the  facilitator  has 
not  updated  IDFILE.DAT  from  the  Central  Control  Menu.  This 
situation  is  recognizable  when  attempting  to  use  the  SEND 
or  READ  function  from  the  main  menu;  program  control 
returns  to  the  previous  screen.  Until  IDFILE.DAT  has  been 
updated  by  the  facilitator  the  user  will  not  be  able  to 
access  the  EMAIL  system  capabilities. 

The  second  situation  will  occur  when  attempting  to  send 
a  mail  message  to  a  user  and  IDFILE.DAT  has  been/or  is 
being  updated.  If  the  EMAIL  system  has  already  accessed 
and  loaded  a  name  from  a  version  of  IDFILE.DAT  which  is  no 
longer  valid,  any  mail  sent  to  that  person  will  simply  be 
disgarded.  This  is  assuming  that  the  recipient  is  not 
logged  on  in  the  new  IDFILE.DAT. 

Both  of  the  situations  described  above  are  not  typical 
and  will  rarely,  if  ever,  occur.  The  primary 
responsibility  of  limiting  these  situations  from  occurring 
is  placed  on  the  facilitator.  He  or  she  must  ensure 
IDFILE.DAT  is  updated  promptly  when  changes  are  necessary. 
For  further  information  on  this  process,  see  the 
Facilitator  User  Guide. 


SUMMARY  OF  PROGRAM  CONTROLS 


SHIFT/F7 

— 

activates  EMAIL  main  menu. 

ESCAPE 

- 

returns  control  to  previous  screen. 

INSERT 

- 

toggles  between  insert/overwrite. 

ALT/F9 

- 

cancels  message  being  created. 

F10 

- 

sends  created  mail  message. 

FI 

- 

displays  help  screen  in  edit  mode. 

F2 

- 

displays  next  waiting  mail  message. 

F3 

- 

allows  reply  to  viewed  message. 

F4 

- 

forwards  viewed  message. 

F5 

- 

displays  saved  messages. 

F6 

- 

deletes  viewed  saved  message. 

C 

— 

removes  screen  note  from  display. 

Table  1 


SERVER  MACHINE  REQUIREMENTS 


IBM-compatible  Personal  Computer 
128K  bytes  of  main  storage 
One  360K  byte  diskette  drive 
One  10MB  hard  disk  drive 
Monochrome  or  color  display 


Table  2 


WORKSTATION  MACHINE  REQUIREMENTS 


IBM-compatible  Personal  Computer 
128K  bytes  of  main  storage 
Two  360K  diskette  drives 
Any  color  display 
Any  number  of  workstations 


Table  3 
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SERVER  SOFTWARE  REQUIREMENTS 


For  LAN  operation,  a  network  control  program,  such  as  PC 
Network,  is  required  plus  MS/DOS,  Release  2.1  or  later. 


Table  4 


WORKSTATION  SOFTWARE  REQUIREMENTS 


MS/DOS,  release  2.1  or  later  is  required. 


Table  5 
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A:\>logon 


Enter  your  username  - >  joesmith 

You  have  entered  the  following  username  - >  JOESMITH 

Do  you  want  to  change  it?  (Y/N)  - >  n 

************************************** 

*  Name  entered  into  user  directory  * 
************************************** 


FIGURE  1 


A>echeck 


t  tl,. 


A>eaail 


III  EMAIL  SYSTEM  IS  MOW  RESIDENT.  Ill 
III  PRESS  SHIFT/F7  TO  ENTER  EMAIL  III 


FIGURE  2 


A)  (SHIFT  F7> 


ELECTRONIC  HAIL  FUNCTIONS 


Send  Messages 


View  Received  Messages 


Return  to  Previous  Screen 


FIGURE  3 


FIGURE  « 
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BROADCAST 
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ESCAPE  *  Quit 


Receiver's  usernaie?  ("I*  to  broadcast/return  to  exit). 


FIGURE  6 
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MESSAGE  FROM:  JOESMITH 

This  is  i  screen  note  Troa  Joe  to  Joe. 

Press  C  to  continue 
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This  document  is  intended  for  those  personnel,  such  as 
session  facilitators,  who  need  to  know  how  to  activate  the 
EMAIL  system  for  use.  It  will  describe  the  sequence  of 
steps  necessary  to  initialize  EMAIL  for  use  and  explain  the 
location  and  types  of  files  involved  in  this  process. 
Specific  design  details  are  not  discussed.  Should  this 
type  of  information  be  desired,  the  reader  is  referred  to 
the  System  Programmer's  Guide. 

INTRODUCTION 

EMAIL  is  a  memory-resident  network  messaging  system 
designed  to  be  used  within  a  planning  room  environment 
utilizing  a  network  host  to  support  remote  user  terminals. 
The  system  can  be  activated  by  any  node  on  the  network  to 
communicate  with  either  another  node  or  with  all  nodes  on 
the  network. 

There  are  two  ways  to  send  a  message  to  another  node 
(user) .  One  can  utilize  the  main  EMAIL  menu  to  send  a  mail 
message  of  any  size,  or  the  SEND.COM  function  can  be  used. 
The  SEND  function,  executed  from  the  DOS  prompt,  allows  a 
user  to  send  a  short  "note"  of  up  to  65  characters  to 
another  user.  The  recipient  will  have  this  message 
displayed  automatically  on  his  or  her  screen. 

With  the  typical  mail  function,  a  message  is  sent  and 
the  recipient  is  notified  there  is  new  mail  and  that  the 
EMAIL  menu  must  be  entered  to  read  it.  EMAIL  messages  are 


automatically  saved  but  can  be  manually  deleted  by  a  user. 
The  user  enters  the  EMAIL  main  menu  by  pressing  a  selected 
key  sequence  (SHIFT/F7) .  Once  the  user  has  finished 
utilizing  the  EMAIL  functions,  he/she  returns  to  the  saved 
state  of  their  previously  active  program:  editing, 
electronic  brainstorming,  etc.  An  on-line  user  list  is 
available  that  allows  the  user  to  see  who  is  logged  onto 
the  system.  The  user  selects  a  username  from  this  list  for 
sending  mail  messages.  When  a  user  receives  a  new  mail 
message,  he/she  is  notified  by  means  of  a  popup  window  and 
an  audible  signal.  The  recipient  must  enter  EMAIL 
(SHIFT/F7)  to  read  the  mail  message. 

The  entire  EMAIL  system  is  table  driven  and  based  upon 
the  users  currently  logged  onto  the  network.  Off-line 
utility  programs  are  provided  at  the  central  server  to 
build  the  user  table  and  initialize  the  network  environment 
for  the  EMAIL  system.  An  optional  log  may  be  selected  by 
the  facilitator  if  desired.  This  log  keeps  a  copy  of  all 
mail  messages  sent  and  can  be  used  for  later  research 
analysis . 

HARDWARE  AND  SOFTWARE  REQUIREMENTS 

The  EMAIL  system  software  is  run  on  a  local  area  network 
(LAN).  In  this  environment  there  are  two  machine  types, 
individual  workstations  and  a  server  machine  which  controls 
the  individual  workstations.  The  general  hardware  and 
software  requirements  for  operating  the  EMAIL  system  are 


document.  Keep  in  mind  these  are  minimum  requirements. 

Once  the  LAN  is  activated  in  a  hardware/software 
configuration  as  previously  described,  the  EUAIL  system  can 
be  initialized.  The  necessary  files  and  their  locations 
are  described  in  tables  1,  2,  3,  and  4.  As  a  facilitator 
you  should  never  have  to  worry  about  installing  these 
files.  They  should  already  be  in  place.  They  are 
described  to  give  you  a  better  idea  of  the  EMAIL  system  and 
to  assist  you  in  any  troubleshooting  that  may  be  necessary. 


Each  User's  A  Drive 

LOGON.COM 

SEND.COM 

EMAIL.COM 

ECHECK.COM 

GOMAIL 

-  is  used  to  log  user  onto  the  network, 
allows  a  user  to  send  screen  notes, 
handles  the  primary  mail  functions, 
handles  all  checking  and  notification. 

-  logs  user  on,  and  loads  EMAIL  system. 

Table  1 

The  Server's  PUBLIC  Directory 

EINIT.BAT 
BLDFILE.COM  - 
FLAG. FI L 
GOFILE.DAT  - 
EMAIL.  DUM 

initializes  ID  file/cleans  out  directories, 
initializes  IDFILE.DAT  with  blank  usernames, 
used  to  "Lock"  and  "Unlock"  the  user  file 
copies  IDFILE.DAT  to  each  MAIL  directory, 
used  to  initialize  the  log  file. 

Table  2 


Each  User  Directory 


GOMAIL.BAT  -  loads  the  EMAIL  system  at  each  workstation. 


Table  3 


Each  User's  MAIL  Subdirectory 


M_MENU . DAT 
USER. ID 
USER . DUM 
LOCK . COM 
UNLOCK.COM 
FLAG. FI L 


-  contains  the  main  EMAIL  menu  information. 

-  contains  the  user's  id  number. 

-  initializes  mail  message  files. 

-  prevents  simultaneous  access  of  IDFILE.DAT. 

-  allows  access  to  IDFILE.DAT. 

-  controls  access  to  IDFILE.DAT. 


Table  4 


EMAIL  SYSTEM  INITIALIZATION 

Initialization  of  the  EMAIL  system  via  the  server  is  the 
first  and  most  important  step  for  the  facilitator.  All 
files  needed  by  the  system  are  assumed  to  be  in  place  on 
the  server  and  each  user's  disk.  Assuming  the  network  has 
already  been  activated,  the  EMAIL  system  is  initialized 
from  the  server  by  the  following  steps. 

1.  Bring  up  the  Central  Control  Menu  by  typing  "GOPLEX" . 

2.  Choose  the  entry  "Activate  Group-Support  Tools  Menu". 

3.  This  will  bring  up  the  Group-Support  Tools  menu; 
choose  the  entry  "EMAIL". 

4.  The  Individual  Tools  Menu  will  be  displayed  which  has 
4  entries  as  in  figure  1. 


EMAIL  Clean  up/Initialize  (log  not  set) 

EMAIL  Clean  up/Initialize  (log  set) 

EMAIL  System  Startup 

Copy  IDFILE.DAT  to  User  Mail  Directories 

Figure  1 

If  you  do  not  want  a  log  kept,  choose  the  first  of  the 
above  entries  from  the  menu.  If  a  log  is  desired,  choose 

the  second  of  the  above  entries  .  After  your  choice  has 

been  entered,  the  system  will  clean  out  all  old  messages 
and  notes  from  each  user's  directory/subdirectory.  Also, 
IDFILE.DAT  is  created  and  initialized  with  blank  names. 
This  file  is  also  placed  in  each  user  MAIL  subdirectory. 
Finally,  the  system  time  file  is  established  which  is  used 
for  timestamping  mail  messages.  The  entire  process  takes 
about  15  seconds.  At  the  end  you  will  see  a  message 
similar  to  the  figure  2. 


*  * 

*  EMAIL  Initialization  Complete  * 

*  * 
*********************************** 

Figure  2 


The  Individual  Tools  Menu  will  then  be  displayed  again  with 
the  same  4  EMAIL  entries  as  previously  described  in  figure 


5,  You  are  now  ready  to  bring  up  the  EMAIL  system  at  each 
user' 8  station.  Choose  the  entry  "EMAIL  System  Startup". 
This  action  will  then  run  a  .BAT  file  at  each  network 
station  which  first  makes  the  user  log  a  valid  and  correct 
username  into  IDFILE.DAT.  Once  a  user  has  successfully 
entered  a  username,  they  will  see  a  message  displayed  on 
their  screen  similar  to  figure  3. 


************************************** 

*  Name  entered  into  user  directory  * 
************************************** 


Figure  3 


The  .BAT  file  will  then  load  ECHECK.COM  and  EMAIL.COM  into 
resident  memory.  At  this  point  a  final  message  will  be 
displayed  on  each  user's  screen: 


***  EMAIL  SYSTEM  IS  NOW  RESIDENT.  *** 
***  PRESS  SHIFT/F7  TO  ENTER  EMAIL  *** 

Figure  4 


A  key  point  to  remember  is  that  LOGON.COM  will  not  permit 
the  EMAIL  system  to  be  loaded  into  memory  at  a  workstation 
until  the  user  has  successfully  logged  on.  No  input,  other 
than  the  username,  is  required  of  the  user  in  order  to 
initialize  the  EMAIL  system  at  their  workstation. 


6.  The  final  step  once  all  users  have  logged  on  is  to 
update  IDFILE.DAT  in  each  user  MAIL  subdirectory  with  the 
current  version  in  the  PUBLIC  directory.  Once  you  are  in 
the  EMAIL  menu,  choose  the  entry  which  is  similar  to  figure 
5  below. 


Copy  IDFILE.DAT  to  User  Mail  Directories 

Figure  5 

This  entry  will  activate  a  file  in  the  PUBLIC  directory 
called  GOFILE.BAT  which  copies  the  IDFILE.DAT  from  the 
PUBLIC  directory  into  each  user  MAIL  subdirectory.  It  is 
important  to  remember  to  perform  this  last  task  after  all 
users  are  logged  on,  otherwise,  the  EMAIL  system  will  not 
function  correctly.  In  fact,  because  each  user  MAIL 
subdirectory  is  initialized  with  a  blank  version  of 
IDFILE.DAT,  no  one  will  be  able  to  use  the  EMAIL  system  at 
all  until  the  new  IDFILE.DAT  has  been  placed  in  their 
directories.  The  EMAIL  software  is  designed  to  access 
IDFILE.DAT  in  each  user  MAIL  subdirectory  to  maximize 
performance.  The  software  involved  in  logging  a  user  onto 
the  network  accesses  the  IDFILE.DAT  file  in  the  PUBLIC 
directory . 


SPECIAL  NOTES 


The  advantage  of  having  IDFILE.DAT  located  in  the 
server’s  public  directory  is  that  it  can  be  updated  at  any 
point  in  a  session  without  disrupting  other  users.  What 
this  means  is  that  a  person  can  come  in  at  the  middle  of  a 

session  and  log  on  without  impacting  the  session.  Should  a 
person  arrive  late,  or  a  change  of  position  is  required, 
you  do  not  need  to  reinitialize  the  EMAIL  system  from  the 
Central  Control  Menu  again.  But  you  will  need  to  enter  the 
Central  Control  Menu  to  have  IDFILE.DAT  copied  to  each  user 
MAIL  subdirectory.  There  are  two  possible  cases. 

1)  If  the  EMAIL  system  has  already  been  loaded  into 
memory  at  the  workstation  simply  have  the  user  type  "logon" 
at  the  DOS  prompt .  This  will  then  ensure  the  new  username 
for  that  workstation  is  loaded  into  IDFILE.DAT.  (If  you  are 
not  sure  whether  the  EMAIL  system  is  already  loaded  simply 
enter  a  SHIFT/F7  to  see  if  the  main  menu  appears) . 

2)  If  the  EMAIL  system  is  not  already  loaded  into 
memory  type  (or  have  the  user  type)  the  following  command 
at  the  DOS  prompt : 

A>  GOMAIL 

GOMAIL.BAT  will  log  the  user's  name  into  IDFILE.DAT  and 
once  this  has  been  successfully  done  load  the  EMAIL  system 
into  memory.  Remember,  if  you're  not  sure  whether  the 
EMAIL  system  is  loaded  in  at  a  particular  workstation  enter 
a  SHIFT/F7  to  see  if  the  main  menu  appears.  Should  you  not 
check,  there  is  the  possibility  of  having  more  than  one 


copy  of  the  EMAIL  system  software  running  in  memory.  This 
is  definitely  not  recommended! 

In  both  of  the  above  cases,  bring  up  the  Individual 
Tools  Menu  and  choose  the  entry  corresponding  to  figure  5. 
The  process  of  copying  this  file  to  all  the  user  MAIL 
subdirectories  takes  about  30  seconds.  However,  this 
process  is  transparent  to  the  user  and  will  not  affect 
anyone  using  the  system.  The  two  programs  in  each  of  the 
user  MAIL  subdirectories,  Lock  and  Unlock,  are  utilized  to 
prevent  interference  with  the  EMAIL  system  while  copying 
IDFILE.DAT  to  all  user  MAIL  subdirectories. 

The  EMAIL  system  has  built-in  protection  features  which 
prevent  the  EMAIL  system  from  being  inadvertently  used  if 
the  facilitator  has  not  properly  initialized  the  system. 
There  are  two  possible  situations  which  could  occur. 

The  first  situation  is  that  the  facilitator  has  brought 
up  the  EMAIL  system  at  each  workstation  and  users  have  all 
logged  on.  And,  either  the  facilitator  has  not  had 
IDFILE.DAT  copied  to  each  user  MAIL  subdirectory  yet,  has 
forgotten  to  do  this,  or  the  copy  process  is  in  progress. 
Suppose  a  user  enters  the  EMAIL  main  menu  by  pressing 
SHIFT/F7  and  attempts  to  send  a  mail  message  or  read  a  mail 
message  by  choosing  one  of  the  first  two  choices  on  the 
menu?  There  is  only  a  blank  version  of  IDFILE.DAT  in 
his/her  user  MAIL  subdirectory  at  this  point.  The  EMAIL 
system  will  not  let  the  user  enter  into  either  the  SEND  or 
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READ  mail  function  until  a  "good"  copy  of  IDFILE.DAT  is  in 
their  user  MAIL  subdirectory.  As  soon  as  the  user  attempts 
to  enter  the  SEND  or  READ  mail  function  the  main  menu  will 
disappear  and  the  user's  previous  screen  will  be 
displayed.  This  will  continue  until  a  correct  version  of 
IDFILE.DAT  is  in  place. 

The  second  situation  is  where  a  user  is  in  the  process 
of  sending  a  mail  message  to  a  person  who  is,  perhaps, 
listed  in  the  username  list  but  has  since  been  replace  or 
another  person  is  logged  on  at  that  workstation.  Since  the 
user  is  still  accessing  information  from  the  old  version  of 
an  IDFILE.DAT  he/she  will  not  know  that  a  new  IDFILE.DAT 
has  been  placed  in  their  directory.  When  this  mail  message 
is  sent  it  will  be  simply  disgarded.  The  next  time  the 
user  attempts  to  send  a  mail  message  the  new  IDFILE.DAT 
will  be  in  place. 
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SERVER  MACHINE  REQUIREMENTS 


IBM-compatible  Personal  Computer 
128K  bytes  of  main  storage 
One  360K  byte  diskette  drive 
One  10MB  hard  disk  drive 
Monochrome  or  color  display 


Table  5 


WORKSTATION  MACHINE  REQUIREMENTS 


IBM-compatible  Personal  Computer 
128K  bytes  of  main  storage 
Two  360K  diskette  drives 
Any  color  display 
Any  number  of  workstations 


Table  6 


SERVER  SOFTWARE  REQUIREMENTS 


For  LAN  operation,  a  network  control  program,  such  as  PC 
Network,  is  required  plus  MS/DOS,  Release  2.1  or  later. 


Table  7 


WORKSTATION  SOFTWARE  REQUIREMENTS 


MS/DOS,  release  2.1  or  later  is  required. 


Table  8 


PART  III 

SYSTEM  PROGRAMMER  GUIDE 


for 

THE  NETWORK  MESSAGING  SYSTEM  (EMAIL) 


TABLE  OF  CONTENTS 


List  of  Figures  .  i 

List  of  Tables  .  ii 

Purpose  . . .  1 

Introduction  .  1 

System  Specifications  . . .  2 

Description  of  ECHECK.PAS  .  2 

Description  of  EMAIL. PAS  .  3 

Description  of  SEND. PAS  .  3 

Description  of  LOGON. PAS  .  4 

Hardware  Requirements  .  4 

Software  Requirements  .  6 

Design  Details  .  10 

IDFILE.DAT  .  11 

Special  Programming  Notes  .  13 

System  Limitations  .  14 

Mark  and  Release  .  14 


LIST  OF  FIGURES 


EMAIL. PAS  Flow  Chart  .  16 

ECHECK . PAS  Flow  Chart  .  17 

LOGON. PAS  Flow  Chart  .  18 

SEND. PAS  Flow  Chart  .  19 


LlVl'kl 


« 


.*  v 


PURPOSE 

This  document  is  intended  to  be  used  by  personnel  who 
need  to  know:  how  to  set  up  the  EMAIL  system  for  use  on  a 
network,  what  files  are  required  and  where  they  are 
located,  and  how  to  compile  and  make  changes  to  the  various 
EMAIL  programs . 


INTRODUCTION 

EMAIL  is  a  memory-resident  network  messaging  system 
designed  to  be  used  within  a  planning  room  environment 
utilizing  a  network  host  to  support  remote  user  terminals. 
The  system  can  be  activated  by  any  node  on  the  network  to 
communicate  with  either  another  node  or  with  all  nodes  on 
the  network. 

There  are  two  ways  to  send  a  message  to  another  node. 
One  can  utilize  the  main  EMAIL  menu  to  send  a  mail  message 
of  any  size,  or  the  SEND  function  can  be  used.  The  SEND 
function,  executed  from  the  DOS  prompt,  allows  a  user  to 
send  a  short  "note"  of  up  to  65  characters  to  another 
user.  The  recipient  will  have  this  message  displayed 
automatically  on  his  or  her  screen. 

With  the  typical  mail  function,  a  message  is  sent  and 
the  recipient  is  notified  there  is  new  mail  and  that  the 
EMAIL  menu  must  be  entered  to  read  it.  EMAIL  messages  are 
automatically  saved  but  can  be  manually  deleted  by  a  user. 
The  user  enters  the  EMAIL  main  menu  by  pressing  a  selected 
key  sequence  (SHIFT/F7) . 


Once  the 


user  has  finished  utilizing  the  EMAIL 


functions,  he/she  returns  to  the  saved  state  of  their 
previously  active  program:  editing,  electronic 
brainstorming,  etc.  An  on-line  user  list  is  available  that 
allows  the  user  to  see  who  is  logged  onto  the  system.  The 
user  selects  a  username  from  this  list  for  sending  mail 
messages.  When  a  user  receives  a  new  mail  message,  he/she 
is  notified  by  means  of  a  popup  window  and  an  audible 
signal.  The  recipient  must  enter  EMAIL  (SHIFT/F7)  to  read 
the  mail  message. 

The  entire  EMAIL  system  is  table  driven  and  based  upon 
the  users  currently  logged  onto  the  network.  Off-line 
utility  programs  are  provided  at  the  central  server  to 
build  the  user  table  and  initialize  the  network  environment 
for  the  EMAIL  system.  An  optional  log  may  be  selected  by 
the  facilitator  if  desired.  This  log  keeps  a  copy  of  all 
messages  sent  and  can  be  used  for  later  research  analysis. 

SYSTEM  SPECIFICATIONS 

The  entire  EMAIL  system  is  comprised  of  four  on-line 
programs.  The  two  primary  programs  are:  ECHECK.PAS  and 
EMAIL. PAS. 

Description  of  ECHECK.PAS 

ECHECK.PAS  ia  the  memory-resident  program  responsible 
for  determining  when  new  mail  messages  are  received  and  for 
activating  the  short  screen  "notes"  which  may  be  sent  via 
SEND.COM.  ECHECK.PAS  has  an  internal  timer  that  checks  for 
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new  mail/notes  every  15  seconds.  The  timer  can  be  changed 
to  any  desired  time  sequence  by  simply  changing  a  constant 
in  ECHECK.PAS,  If  there  are  new  mail  messages,  ECHECK.PAS 
will  notify  the  user  by  displaying  a  popup  window  and 
utilizing  an  audible  signal.  If  there  are  any  screen 
notes,  ECHECK.PAS  will  display  the  note  automatically  and 
not  remove  it  until  the  recipient  has  pressed  'C'. 
Description  of  EMAIL. PAS 

E31AIL.PAS  is  the  other  main  program  and  is  also  memory- 
resident.  It  controls  all  the  mail  functions  such  as 
sending  and  reading  mail  messages.  EMAIL. PAS  does  not  use 
an  internal  timer  because  it  can  be  activated  anytime  the 
selected  key  sequence  is  entered  at  the  keyboard.  Because 
of  all  the  include  files  utilized,  EMAIL. PAS  is  the  largest 
of  all  programs  involved  in  the  EMAIL  system. 

The  other  two  programs  in  the  EMAIL  system  are: 
SEND. PAS  and  LOGON. PAS. 

Description  of  SEND.PAS 

SEND. PAS  is  utilized  at  the  DOS  prompt  as  a  .COM  file  to 
send  the  screen  notes  previously  discussed.  If  you  are 
familiar  with  the  SEND  function  on  the  VAX  then  you  will 
already  know  how  to  use  this  version  of  the  SEND  function. 
They  are  exactly  the  same  as  far  as  appearances. 


Description  of  LOGON, PAS 

LOGON . PAS ,  as  a  .COM  file,  is  used  when  a  user  is  ready 
to  enter  into  a  network  session  but  prior  to  loading  the 
EMAIL  system  into  memory.  It  is  the  critical  point  because 
LOGON. PAS  is  responsible  for  ensuring  that  the  user  enters 
a  valid,  unique  username  into  the  file  IDFILE.DAT.  This 
file  is  the  primary  file  utilized  by  the  EMAIL  system.  It 
is  located  in  the  server's  PUBLIC  directory  and  each  user's 
MAIL  subdirectory.  It  contains  the  mapping  between  user 
names  and  actual  locations  on  the  network.  A  blank  version 
of  this  file  is  created  as  part  of  the  initialization 
process  and  placed  in  each  user's  MAIL  subdirectory. 

All  of  the  programs  utilized  in  the  EMAIL  system  were 
coded  using  Turbo  Pascal  and  inline  assembly  language.  A 
majority  of  the  memory-resident  shell  was  developed  by  Lane 
Ferris,  et.al.,  as  "The  Hunter's  Helper".  This  shell  is 
public  domain  software.  The  current  EMAIL  system  was 
designed  and  developed  on  a  network  of  16  nodes.  It  is 
easily  expandable  to  32  or  more  nodes  with  minimal  effort 
as  shall  be  discussed  later. 

HARDWARE  REQUIREMENTS 

The  EMAIL  system  can  be  used  on  IBM  PC's,  or  any 
appropriate  compatibles,  that  are  connected  via  a  network 
server  under  a  local  area  network  configuration.  In  this 
environment  there  are  two  machine  types,  individual 
workstations  and  a  server  machine  which  controls  the 


individual  workstations.  The  general  hardware  requirements 


for  a  system  to  run  EMAIL  are  listed  in  tables  1  and  2. 


Keep  in  mind,  these  are  the  MINIMUM  requirements  of  each 


machine  type. 


SERVER  MACHINE  REQUIREMENTS 


IBM-compatible  Personal  Computer 
128K  bytes  of  main  storage 
One  360K  byte  diskette  drive 
One  10MB  hard  disk  drive 
Monochrome  or  color  display 


Table  1 


WORKSTATION  MACHINE  REQUIREMENTS 


IBM-compatible  Personal  Computer 
128K  bytes  of  main  storage 
Two  360K  diskette  drives 
Any  color  display 
Any  number  of  workstations 


Table  2 


EMAIL  has  two  memory-resident  programs  that  are  designed  to 


be  loaded  into  each  network  node's  memory  thus 


decentralizing  work  from  the  server.  The  total  amount  of 


memory  required  for  the  resident  portion  of  EMAIL  is 


approximately  110K  bytes  of  RAM.  Any  type  of  disk  drive  is 


compatible  since  neither  of  the  memory-resident  programs 


will  access  the  disk  drive  again  after  being  loaded  into 


memory.  However,  LOGON. PAS  and  SEND. PAS  are  still  located 
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on  the  A  drive  and  must  be  accessible  at  all  times  if  full 


use  of  the  EMAIL  system  is  desired.  All  other  files,  as 
well  as  mail  messages  and  screen  notes,  are  stored  on  the 
server  in  various  directories  depending  on  the  particular 
file.  For  example,  all  mail  and  note  files  are  stored  in 
each  user’s  directory  in  a  subdirectory  called  MAIL.  This 
subdirectory  also  contains  the  EMAIL  menu  data  file,  user 
id  file,  and  another  file  used  by  EMAIL. PAS.  If  a  log  is 
being  kept,  the  server’s  public  directory  will  contain  this 
f  ile . 

SOFTWARE  REQUIREMENTS 

For  local  area  network  (LAN)  operation,  a  network 
control  program,  such  as  IBM's  PC  Network,  is  required  plus 
MS/DOS,  Release  2.1  or  later.  To  run  the  EMAIL  system  on  a 
network  already  executing  the  appropriate  network  software 
system  there  are  four  locations  where  certain  files  must 
exist.  These  locations  and  files  are  described  in  tables 
3 ,  4 ,  5 ,  and  6 . 


Each  User's  A  Drive 


LOGON.COM  -  is  used  to  log  user  onto  the  network. 
SEND.COM  -  allows  a  user  to  send  screen  notes. 
EMAIL.COM  -  handles  the  primary  mail  functions. 
ECHECK.COM  -  handles  all  checking  and  notification. 
GOMAIL.BAT  -  logs  user  on,  and  loads  EMAIL  system. 


Table  3 


The  Server’s  PUBLIC  Directory 


EINIT.BAT 
BLDFILE.COM  - 
FLAG. FI L 
GOFILE.BAT  - 
EMAIL. DUM 


initializes  ID  file/cleans  out  directories, 
initializes  IDFILE.DAT  with  blank  usernames 
used  to  "Lock"  and  "Unlock"  the  user  file 
copies  IDFILE.DAT  to  each  MAIL  directory, 
used  to  initialize  the  log  file. 


Table  4 


Each  User  Directory 


GOMAIL.BAT  -  loads  the  EMAIL  system  at  each  workstation. 


Table  5 


Each  User's  MAIL  Subdirectory 


M_MENU . DAT 
USER. ID 
USER . DUM 
LOCK.COM 
UNLOCK . COM 
FLAG. FI L 


contains  the  main  EMAIL  menu  information, 
contains  the  user's  id  number, 
initializes  mail  message  files, 
prevents  simultaneous  access  of  IDFILE.DAT. 
allows  access  to  IDFILE.DAT. 
controls  access  to  IDFILE.DAT. 


Table  6 

As  previously  mentioned,  the  EMAIL  system  is  designed  to 
be  initialized  from  the  server.  The  main  menu  involved  is 
the  Central  Control  Menu  which  calls  the  Individual  Tools 
Menu  for  EMAIL.  This  menu  is  accessed  by  typing  in  "U" 
<ENTER>  from  the  server's  SESSMAN  directory,  or  "GOPLEX" 
<ENTER>  at  the  C:\  root  directory.  Specific  details  on  how 
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to 


initialize  the  EMAIL  system  are  available  in  the 


Facilitator  User  Guide.  However,  should  you  want  or  need 
to  change  the  EMAIL  menu  entries  which  are  displayed  in  the 
Individual  Tools  Menu,  simply  edit  the  file  EMAIL. LIS. 
This  file  is  located  in  the  SESSMAN  directory. 

The  previous  information  summarizes  the  files  necessary 
to  run  the  EMAIL  system  on  a  network.  To  do  any 
development  work  on  any  of  the  EMAIL  programs  you  need  to 
set  up  two  disks  with  the  appropriate  files  as  described  in 


tables 

7 

and 

8. 

Batch 

files  such 

as  GOFILE.BAT  and 

EINIT . 

BAT 

are 

not 

listed 

in  either 

table.  These  can  be 

copied 

to 

either 

disk  if 

changes  are 

necessary.  However, 

keep  in  mind  the  space  limitations  of  both  disks . 


Development  Work  Files:  A  Drive 


TURBO.COM 
EMAIL. PAS 
ECHECK . PAS 
LOGON . PAS 
SEND . PAS 
BLDFILE . PAS 


the  Turbo  Pascal  compiler, 
main  EMAIL  functional  program, 
handles  checking/notification, 
logs  user  onto  system, 
sends  screen  notes  at  DOS  prompt, 
initializes  IDFILE.DAT 


Table  7 
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Development  Work  Files:  B  Drive 


STAYSUBS .420 
STAYWNDO . 34 1 
STAYI16 .410 
STAYI 13.410 
STAYI21 .410 
STAYI8 .420 
STAYI28 .410 
STAYSAVE . 420 
STAYRSTR .420 
CLKI8.410 
BLDMSG. INC 
GET. INC 
MENU. INC 
STRMENU. INC 
LOCK. PAS 
UNLOCK . PAS 


contains  necessary  subroutines, 
creates  windows, 
handles  interrupt  16  calls, 
handles  interrupt  13  calls, 
handles  interrupt  21  calls, 
handles  interrupt  8  calls, 
handles  interrupt  28  calls. 

-  saves  operating  system  structures, 
terminates  and  stay  resident . 
used  to  set  up  an  internal  timer, 
builds  the  mail  message  being  sent, 
reads  new  or  saved  mail  message, 
displays  main  EMAIL  menu, 
displays  username  list, 
controls  access  to  IDFILE.DAT. 
used  to  allow  access  to  IDFILE.DAT. 


Table  8 


Once  you  have  two  disks  with  the  appropriate 
configuration  of  files  as  described  above,  you  can  use 
Turbo  Pascal  as  you  normally  would  to  make  any  changes. 
When  compiling  any  of  the  Pascal  programs  you  need  to 
ensure  a  .COM  file  is  created  by  entering  the  options  menu. 
Additionally,  when  compiling  ECHECK.PAS  set  the  MAXIMUM 
Segment  size  to  275  and  the  MINIMUM  Segment  size  to  275. 
This  is  done  while  in  the  options  menu  prior  to  compiling. 
When  compiling  EMAIL. PAS  set  the  MAXIMUM  Segment  size  to 
400.  The  MINIMUM  Segment  size  will  already  have  the 
default  value  of  400.  These  values  are  necessary  because 
they  control  the  stack/heap  size  while  running  the  EMAIL 
system.  Should  you  decide  to  manipulate  these  values  you 


may  encounter  a  run-time  FF  error,  meaning  you  ran  out  of 


memory . 


DESIGN  DETAILS 


Only  structures  applicable  to  MS/DOS  or  Turbo  Pascal 
were  used.  The  memory-resident  shell  does  extensive 
manipulation  on  the  operating  system  structures.  User  mail 
messages  are  sequentially  numbered  files  (ie.  USER1.N1, 
USER1.N2,  USER1.N3,  ....  USER16.N1,  USER16.N2,  ...,)  for 
new  mail  messages  and  for  saved  messages  (ie.  USER1.01, 


USER1 .02 , 


. . ,  USER16 . 01 ,  ...,).  When  a  new  mail  message 


is  created,  it  is 


added  as  the  next  sequentially 


numbered  message  in  the  new  mail  queue.  Once  the  new  mail 
message  has  been  read  it  is  automatically  saved  with  the 
new  extension,  such  as  USER5.03.  The  user  only  has  the 
capability  to  delete  saved  messages,  not  new  mail  messages. 

With  regards  to  the  screen  notes  using  SEND.COM  from  the 
DOS  prompt  there  is  no  queueing  function!  When  the  note 
has  been  created,  it  is  placed  in  a  temporary  holding  file 
in  the  user's  MAIL  subdirectory  called  TEMP.MES.  SEND  will 
check  the  destination  directory  to  see  if  a  file  called 
USERx.MES  (x  =  1,  2,  ....  16)  already  exists.  If  it 
exists,  it  means  another  person's  note  is  waiting  to  be 
read.  This  will  cause  a  delay  for  the  sender  until  that 
other  note  has  been  read.  Theoretically,  since  ECHECK 
checks  for  new  mail  and  notes  every  15  seconds  the  worse 


possible  situation  would  be  where  the  user  sends  a  screen 


note  and  there  is  another  note  already  there.  If  ECHECK  has 
just  finished  checking  the  receiver's  directory  the  sender 
would  be  held  in  a  15  second  loop  until  ECHECK  comes  back 


around  and  displays  the  waiting  message.  This  may  not  seem 
as  efficient  as  utilizing  a  queueing  function  but  the 
primary  traffic  will  be  mail  messages  through  the  normal 
EMAIL  functions.  By  not  utilizing  a  queueing  function,  the 
overall  complexity  of  the  SEND  function  was  kept  to  a 
minimum.  A  potential  timing  problem  could  occur  if  two 
users  with  sequential  locations  on  the  network  send  a 
screen  note  to  the  same  destination  at  the  exact  time.  One 
of  the  screen  notes  might  be  overwritten.  The  probablilty 
of  this  type  of  situation  occurring  is  extemely  low. 

IDFILE.DAT 

A  key  point  to  be  discussed  is  in  relation  to  the  file 
which  is  the  main  interface  between  the  EMAIL  system  and 
the  local  area  network  on  which  it  is  running.  Remember 
that  IDFILE.DAT  contains  the  username  of  each  user  and 
their  "location"  on  the  network.  As  already  explained 
IDFILE.DAT  is  accessed  by  all  users  when  logging  onto  the 
network.  When  all  users  have  logged  on,  the  facilitator 
then  has  a  copy  of  IDFILE.DAT  placed  in  each  user’s  MAIL 
subdirectory.  Therefore,  keep  in  mind  that  LOGON. PAS 
accesses  IDFILE.DAT  in  the  PUBLIC  directory  and  EMAIL. PAS 
and  SEND. PAS  access  IDFILE.DAT  in  the  individual  user  MAIL 
subdirectories . 
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When  logging  on,  IDFILE.DAT  must  be  accessed  by  all 


users.  In  order  to  allow  access  by  multiple  users  of  this 


file  (in 

the 

PUBLIC 

directory)  a 

"Lock" 

and  "Unlock" 

procedure 

has 

been 

implemented  in 

LOGON, 

,  PAS.  The 

Lock 

procedure 

is 

called 

before  any  code 

within 

a  program 

that 

accesses  IDFILE.DAT.  It  first  looks  in  the  server's  public 
directory  to  see  if  a  file  called  FLAG.FIL  exists  or  not. 
If  it  does,  this  means  that  IDFILE.DAT  is  available  for 
use.  Procedure  Lock  then  renames  FLAG.FIL  to  TEMP.FIL  to 
prevent  other  programs  from  accessing  IDFILE.DAT.  This 
action  alone  was  not  enough  to  prevent  simultaneous 
"collisions"  from  occurring.  Turbo  Pascal  compiler 
directives  have  been  added  around  the  code  which  attempts 
the  renaming  of  FLAG.FIL.  This  prevents  a  run-time  error 
from  occurring  should  two  or  more  programs  try  to  rename 
the  file.  Procedure  Unlock  is  placed  after  the  code  which 
accesses  IDFILE.DAT  to  "release"  it  for  other  programs  to 
access.  Unlock  simply  renames  TEMP.FIL  back  to  FLAG.FIL. 

Similarly,  the  same  procedures  are  used  in  EMAIL. PAS  and 


SEND . PAS . 

Although 

these  programs  access 

their 

own 

personal 

copy 

of 

IDFILE.DAT,  there  are 

times 

when 

simultaneous  access 

of  IDFILE.DAT  might 

occur . 

For 

exampl e , 

the 

facilitator  can  copy  new 

versions 

of 

IDFILE.DAT 

t  o 

each  user  MAIL  subdirectory  if  a 

person 

logs 

on  late 

or  a 

change 

of  seating  arrangement 

occurs . 

The 

batch  file,  GOFILE.BAT,  also  utilizes  programs  LOCK  and 
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V  *V*  v* 


UNLOCK  which  are  the  same  as  the  procedures  LOCK  and 
UNLOCK . 


Special  Programming  Notes 

Currently,  ECHECK.COM  is  set  for  a  15  second  interval. 
In  other  words,  every  15  seconds  it  executes  the  check  for 
new  mail  messages  and  screen  notes .  This  time  was  purely 
arbitrary  and  can  be  adjusted  by  changing  the  variable 
called  TIMER_TIME. 

To  enter  the  main  EMAIL  system  menu,  the  user  must  press 
SHIFT/F7.  This  can  also  be  easily  changed  if  desired.  A 
variable  in  EMAIL. PAS  called  0UR_H0TKEY  contains  the  value 
corresponding  to  SHIFT/F7. 

As  mentioned  before,  the  EMAIL  system  was  designed  and 
developed  on  a  local  area  network  of  16  nodes.  However,  to 
expand  the  operating  capacity  of  the  EMAIL  system  is  quite 
simple.  The  first  step  is  to  change  a  constant  called 
NODES  to  the  desired  number,  such  as  32,  in  each  of  the 
following  programs:  BLDFILE.PAS,  LOGON . PAS ,  SEND. PAS, 
ECHECK.PAS,  and  EMAIL. PAS.  The  next  step  is  to  modify 
EINIT.BAT.  The  appropriate  code  for  extension  to  32  nodes 
is  already  present  in  EINIT.BAT  but  is  commented  out. 
Simply  remove  the  lines  preceded  by  REM,  which  designates  a 
comment  in  BAT  files.  The  final,  but  critical,  step  is  to 
modify  the  user  table  in  SEND. PAS  and  EMAIL. PAS.  The 
appropriate  code  is  already  present  to  expand  to  32  nodes 
but  is  commented  out.  Simply  remove  the  comment  brackets 


and  append  that  code  to  the  end  of  the  user  table. 
Remember,  the  additional  nodes  must  have  the  same  user 
directories  on  the  server  and  contain  the  necessary  files 
as  mentioned  previously. 


System  Limitations 

Once  loaded  the  EMAIL  system  cannot  be  removed  from 
memory  except  by  rebooting  the  computer  station  that  it  is 
running  on.  If  you  have  to  reboot  a  particular  station 
none  of  the  ordinary  initialization  done  on  the  5server  has 
to  be  done  as  this  would  severely  disrupt  the  rest  of  the 
users  logged  on.  Simply,  reboot  the  particular  machine  and 
enter  the  following  command. 

A>  GOMAIL  < ENTER > 


Mark  and  Release 

There  are  a  couple  of  public  domain  programs  which  can  be 
used  to  remove  programs  from  memory.  They  are  called  MARK 
and  RELEASE.  Prior  to  loading  ECHECK  and  EMAIL,  you  would 
enter  MARK  at  the  terminal.  When  you  want  to  take  ECHECK 
and  EMAIL  out  of  memory,  you  would  enter  RELEASE.  A 
potential  problem  arises  from  the  fact  that  when  a  RELEASE 
command  is  entered,  any  memory-resident  programs  loaded 
into  memory  after  the  last  MARK  command  will  be 
released.  If  you  can  always  ensure  that  ECHECK  and  EMAIL 
are  the  last  programs  loaded  after  MARK  then  this  will  not 
present  a  problem.  But,  if  this  is  not  always  the  case 
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then  you  should  consider  carefully  whether  or  not  you  want 
to  use  the  MARK  and  RELEASE  commands . 
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>  APPENDIX  A 

> 

i  PROGRAM  LISTING 

of 

EMAIL . PAS 


{tttttttttttitttttttttttttttittmtmttttttttttttfftttifftmtmtmtmi 


EHAIL.PAS  GARY  HCALUH  August  1987 

PROGRAM  DESCRIPTION: 

ENAIL  is  a  Misty-resident  network  aessage  systei  designed  to  be  used 
within  a  planning  root  environment.  This  prograa  can  be  activated  by 
any  network  node  to  send  or  receive  aessages  to  a  specific  node  or  all 
nodes  active  on  the  network,  Mhen  a  user  receives  a  aessage,  he  is 
notified  by  leans  of  a  another  aeiory-resident  prograi  called  ECHECK. 
ENAIL  is  table  driven  and  is  based  upon  the  users  currently  on  logged  on 
the  network.  Nessages  sent  on  the  systei  contain  both  the  sender’s  and 
and  receiver’s  naaes  as  well  as  a  tiie  staip  on  when  the  aessage  was 
sent.  An  optional  log  aay  be  created  at  initialization  that  allows  all 
■essages  sent  on  the  systei  to  be  logged  and  kept  for  later  analysis. 


1 

1  INPUT/OUTPUT  FILES: 

• 

* 

1  (1) 

USER. ID  : 

contains  the  unique  user  nuaber  in  ASCII  (1-16) 

I  (2) 

USER. DUN  : 

used  to  write  a  blank  screen  for  the  new  aessage 

1  (3) 

USERX.Nt  : 

X  =  user*;  1  8  1,2,3...;  new  iail  aessage 

1  (4) 

USERX.0I  : 

X  8  user*;  I  8  1,2,3...;  old  aail  aessage 

1  (5) 

H  HENU.DAT  : 

a  aenu  file  for  the  aain  ENAIL  prograi  aenu 

I  (6) 

IDFILE.DAT  : 

the  user  table,  created  each  systei  init 

1  (7) 

TIHE.FIL 

contains  the  base  sys  tiae,  replaced  each  sys  init 

t  (8) 

FLA6.FIL  : 

is  used  by  procedures  Lock  and  Unlock;  for  IDFILE 

1  (9) 

I 

ERAIL.LOG  : 

an  optional  log  file  to  store  aail  asg  interaction 

PROGRAM  REQUIREMENTS: 


Heiory  required  is  approx i lately  82k  bytes  of  RAH.  Any  type  of  disk  I 
drive  is  coapatible  since  the  prograi  is  loaded  directly  in  aeiory  and  I 
does  not  access  the  disk  containing  the  source  prograi  afterwards.  t 
ENAIL  was  developed  and  tested  using  NS/DQS  Version  3.1  and  TURBO  Pascal  I 
Version  3.0.  This  prograi  should  be  assembled  as  a  CON  file  with  aini-  I 
■ui  dynaiic  aeiory  to  set  0400  and  aax.  dynaiic  aeiory  set  to  0400.  This  ) 
ensures  enough  aeiory  is  allocated  to  the  heap  to  avoid  collisions  while  I 
1  in  ting  the  aaount  of  aeiory  reserved  for  the  heap.  t 

>  t 

tttttttttttttttttttttttttttttttttttttttttttttttttttttittttttttttttttttttttt} 

:*r-} 

IC-) 


PR0GRAN  eiailj 


{ttttttttttttttttttttti  constants  used  in  the  shell  timmtttmtimmti} 

CONST 


nodes 

■axwin 

esc 


alt  f9 


*  16;  (  til  nuaber  of  nodes  on  network  tit  } 

*  10;  (Nax  I  windows  open  at  1  tiie,  used  in  window. inc) 

*  127;  (character  equivalent  of  Escape  Key) 

8  *112;  (Alt  Function  9  Scan  code  } 


ctr 1 _f 9 

*  1229; 

quit_key 

=  ctr  1  _f  9 

alt  ’ 

=  08;  ” 

Ctrl 

=  04; 

lef t_shif t 

=  02; 

rght_shift 

=  01; 

bi osi 8 

=  8; 

biosi 16 

*  *16; 

bi osi 13 

=  *13; 

dosi 21 

=  *21; 

dosi28 

=  *28; 

{Ctl-F9  (1102+127)  Key  code 
(Suit  and  Release  Heacry) 
{Shift  bit*  at  40:17  } 

(the  code  (or  the  control  key) 
(used  to  shift  left) 

(used  to  shift  right) 

(Bios  Ti»er  interrupt) 

(Bios  Keyboard  interrupt) 

(Bios  Disk  interrupt) 

(DOS  service  router  interrupt) 
(DOS  Idle  interrupt) 
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(ittmtmtttmtmtt  type  declarations  used  in  the  shell  mmttttmittt) 


TYPE 

=  stringC20I; 

=  record  (lake  IDFILE.DAT  a  randoa  access  file) 

na«e  :  entryjiaae; 
id  linteger; 
end; 

=  RECORD 

ax, bx, cx, dx, bp, si, di,ds,es, flags: INTEGER 
END; 

=  RECORD 

al,ah,bl,bh,d,ch,dl,dh:Byte 
END; 

filenaaetype  £  STRIN6I64); 

str_66  ’  =  STRIN6C663; 

user  table  =  ARRAYU..node*l  OF  str_66; 

vector  1  RECORD  (Interrupt  Vector  type) 

ip, cs  : INTEGER  ; 

END  ; 

rayptr  =  Abigray; 

bigray  =  RECORD 

nc,  nl :  INTEGER; 

pixray:  ARRAY [1.. 4000 I  OF  Byte; 

END; 

(tttimtttmmmm  typed  constants  used  in  the  shell  tmmtmmttttt) 

CONST 

ourjiotkey  :  Byte  -  90;  (scan  code  for  SHIFT-F7) 

{mtmtmtiiiumu  scan  code  can  be  changed  to  hake  tttttttmmttmtt) 
{ttmtttttttutttttttt  another  key  active  as  the  host  key.  mtttmmitm) 

(  This  table  aarks  those  INT  21  functions  which  aust  be  passed  ) 

(  without  aodification.  They  either  never  return,  fetch  parameters  ) 

(  froa  the  stack,  or  aay  be  interrupted  by  a  TSR.  } 


entryjiaae 

entry 


regtype 


half regtype 


f 

i 

i 

l 

i 


i 

4 

« 


functab  !  ARRAYtO. . 1  OF  Byte  = 

(1,1, 1,1,  1,1, 1,1,  1,1, 1,1,  1,0, 0,0,  «K) 
0,0, 0,0,  0,0, 0,0,  0,0, 0,0,  0,0, 0,0, 


2. 


0,0, 0,0,  0,0, 1,0,  0,0, 0,0,  0,0,0, 1,  (26, 2F) 
0,1, 1,1,  1, 1,0,0,  0,0, 0,0,  0,0, 0,0,  (31-35) 


0,0, 0,0,  0,0, 0,0, 

,1,1,1,  1, 1,0,0,  {4B-4DJ 

1,1, 1,1,  0,1, 0,0,  1 

,0,0,0,  0,1, 1,1,  { 50-53 , 55 , 58 , 5D-5F } 

1,1, 1,1,  1,1, 1,1, 

,1,1,1,  1,1,1,11;  (60-623 

intrjiags 

:  Byte  =  0; 

(Active  interrupts  Flags) 

l nt 13_on 

=  04; 

(Disk  interrupt  is  active) 

int21_on 

=  08; 

(DOS  Service  router  is  active) 

status 

:  Byte  =  0; 

(Status  oF  current  TSR  activity) 

hotkey_on 

-  01; 

{Received  the  HotKey) 

inuse 

--  02; 

{TSR  is  active) 

Foxs 

--  IFF; 

(aorkaround  For  inline  hex  FF)  ' 

dosversion 

:  Byte  =  0; 

(Current  Version  oF  DOS) 

uaitcount 

:  Byte  =  0; 

(Mait  to  activate  count) 

userprograa 

•.INTEGER  =  0; 

(Offset  to  Users  Prograa  Code) 

ourdseg 

: INTE6ER  =  0; 

(Turbo  Data  Segaent  Value  ) 

oursseg 

:  INTEGER  =  0; 

(Turbo  Stack  Segaent  Value  ) 

dosdseg 

: INTEGER  =  0; 

(Dos  Datasegaent  value  )  1 

dossseg 

: INTEGER  =  0; 

(Dos  Stack  Segaent  Value  ) 

dossptr 

•.INTEGER  =  0; 

(Dos  Stack  pointer  value  ) 

dosssiz 

: INTEGER  =  0; 

(Dos  Stack  size  in  aords  ) 

usrdseg 

: INTE6ER  =  0; 

{Interrupted  Datasegaent  value  ) 

usrsseg 

: INTEGER  =  0; 

(Interrupted  Stack  Segaent  Value  ) 

usrsptr 

: INTE6ER  =  0; 

(Interrupted  Stack  pointer  value  ) 

ourpsp 

: INTEGER  =  0; 

The  Fol loMing  constants  IHUSTI  reaain  in  the  IP:CS  order.  ) 

StaySave  uses  thea  as  JMP  targets  }  J 

biosintS 

ivector  =  Fip: 0; cs: 0) 

;  (BIOS  Tiaer  Interrupt  Vector  ) 

bios_intl6 

ivector  =  (ip:0;cs:0) 

;  (BIOS  Keyboard  Interrupt  Vector  ) 

bios_intl3 

ivector  1  < i p : 0; cs: 0) 

;  (BIOS  Disk  Interrupt  Vector  ) 

dos_int21 

ivector  =  (ip:0;cs:0) 

;  (DOS  Sevice  Interrupt  Vector) 

dosjnt2B 

ivector  =  (ip:0;cs:0) 

;  (DOS  idle  Service  interrupt  Vector) 

dosstatl 

ivector  =  (ip:0;csi0);  (Pointer  to  IND0S  byte)  ^ 

dosstat2 

ivector  =  (ip:0;c5:0! 

;  (Pointer  to  CRITICAL  byte)  . 

version 

:STRIN6I41  =  ’4.15’ 

;  (current  Version  nuaber) 

new_ext 

:STRIN6C2I  =  ’.N’; 

(used  to  designate  nea  aail  asgs) 

tiaer_aessage  :STRIN6C803  = 

Flagjil  :str_66  =  ’D:\nAIL\FLA6.FIL’ ; 
teapjil  sstr_66  =  ’D:\HAIL\TEWP.FIL'; 
log.str  : str _66  *  'E:£NAIL.L06'; 
usrjdjstr  :str_66  =  ’D:\HAIL\USER.ID’; 
in_fil_str  :str_66  =  ’D:\HAIL\IN.FIL’; 
usr _path  : str_66  =  ’D:\HA1L\USER’; 
idfile_dat  :str_66  =  ’D:\HAIL\IDFILE.DAT’ ; 
a_aenu_dat  : str  66  =  ’D:\HAIL\H_HENU.DAT’; 


(used  by  Lock  and  Unlock) 

{used  by  Lock  and  Unlock} 
Uog-contains  a  sessions  eail) 
{contains  user’s  id  nuaber) 
{contains  sender’s  eessage) 

{init  path  strg  »/i  ea  user  dir) 
(contains  usernaaes/idl's) 
(contains  initial  aenus) 


A  %  „N  A  A  A  A  A  A  J 


userjiletable:  user_table 
(’E:\USER1\NAIL\’, 

’E:\USER2\NAIL\', 

'E:\USER3\HAIL\’, 

’E:\USER4\HAIL\’, 

’E:\USER5\HAIL\’ , 

’E:\USER6\HA1L\’, 

’E:\USER7\HAILV, 

’E:\USER8\HAIL\', 

’E:\USER9\HAIL\’, 

’E:\USER10\HAIL\’, 

’E:\USER1I\HAIL\’, 

’E:\USER12\HAIl\’, 

’E:\USER13\HAIL\’, 

’E:\USER14\NAIL\’, 

’E:\USER15\HAIL\’, 

’E:\USERlb\HAIL\’); 

{muutmmmtmmtmtttmmtmmtmmttmttmmmtt} 

it  To  expand  this  prograa  to  handle  32  users  on  the  network,  siaply  >5 

{!  'uncoaientv  the  Tollowing  code  and  append  to  the  above  usertable  t) 

(I  Reaeaber  that  the  variable  NODES  also  has  to  be  set  to  32  (above), 15 

{mutmmmttmttmtmmmmmmtmmmmmttmuu) 

{  ’E:\USER17\HAIL\’ , 

’E:\USER18\flAIL\’, 

’E:\USER19\HAIL\’, 

’E:\USER20\HA1L\’, 

’E:\USER21\NAIL\’, 

’E:\USER22\MAILV, 

’E:\USER23\NAIL\’, 

’E:\USER24\NAll\’, 

’E:\USER25\HAIL\’, 

’E:\USER26\NAIL\', 

’E:\USER27\HAIL\’, 

’E:\USER28\NAIL\’, 

’E:\USER29\HAIL\’ , 

’E:\USER30\HAIL\’ , 

’E:\USER31\NAIL\’, 

’E:\USER32\HAILV);  5 

{ttittimtimitimtmmtm  variables  mmtmtmmumummm} 


(user  path  table  used  in  PUT. DIR) 
(procedure  to  enable  Tile  copying) 
(Troa  one  node  directory  to  another) 


VAR 

an_entry  :  entry;  (  usernaae  and  node  nuaber  in  ldhle  ) 

listid,  (  temporary  work  Tile  ) 

ldlist  :  Tile  oT  entry;  (  randoa  access  Tiles  5 

ctr  :  integer;  {  counter  index  5 

ulist  :  text;  (  textTile  ) 

xTree,  (  used  by  shell  to  release  ltage,  procedure  putx  ) 

unlocked,  (  used  by  Lock  and  Unlockl  5 

skip, reply,  {  Tlags  used  to  deteraine  escapes,  reply,  forward  5 

tor  jiard. 


f irstiae 

:  boolean; 

(  used  in  get.inc  ) 

teapf i!e, 

flaqfile, 

jur) 

:  text; 

(  teaporary  file  used  by  get.inc,  used  for  REPLY  ) 

n_line 

:  stringI271; 

(  used  to  store  sender’s  naae  when  REPLY  is  called 

teapstr 

:  string(201; 

(  stores  chosen  naae  froa  usernaae  list,  bldasg.inc 

regs 

:  regtype; 

halfregs 

:  halfregtype 

Absolute  regs; 

keychr 

:  CHAR  ; 

bytecount 

:  INTEGER; 

savedpsp 

:  INTE6ER; 

(  Prograa  Segaent  Prefix  pointers  ) 

error 

:  INTE6ER; 

(  I/O  results  ) 

good 

:  BOOLEAN; 

(  I/O  results  switch  } 

terminate 

:  BOOLEAN; 

(  Exit  stayRes  Flag  ) 

ourdta 

ARRAY  (1. .21  OF 

INTEGER;  (Local  DTA  pointer) 

saveddta 

ARRAY  Cl.. 21  OF 

INTE6ER;  (Interrupted  DTA  pointer) 

(NEEDED  FOR  HAIL  PROGRAM) 

tics 

: REAL; 

(used  to  set  tiaer) 

done, 

(flag  used  in  bldasg) 

broadcast 

(used  to  flag  if  broadcast  is  requested) 

log_on 

•sgnui 

usrno 

ctiae 

froa_and_froa_naae 

to_and_to_naae 

heaptop 

hidock 

loclock 

asgint, 

bt, 

sendjd, 

*Pi 

yp 

user, 
loqjile, 
inf  lie, 
outf  lie 
newt  lie 
pic 


: BOOLEAN; 

: STRIN6C23 ; 
:STRIHGC23; 
: STRIN6C53 ; 


(set  to  true  it  the  log  option  is  on) 
(■essage  nuiber  of  the  tail) 

(user  nuaber} 

(character  representation  of  the  tiae) 
:STR1N6I271;  (concat  of  FROH:  and  sender  user  naae} 

: STR1NGC27] ;  (concat  of  TO:  and  receiver  user  naae} 

: AINTE6ER;  (used  to  eark  top  of  heap) 

: INTEGER  Absolute  $40  :$6e; 

: INTEGER  Absolute  $40  : 96c; 

(■essage  nuaber  in  integer  foraatl 
(index  used  in  broadcasting) 

(sender’s  user  nuaber) 

(used  in  aail_aan  for  xcursor  position) 
(used  in  aail_aan  for  ycursor  position) 
(user  ldfile  string) 

(eaail.log  file  string) 

(used  in  putdir,  designates  sender’s  file) 
(used  in  putdir,  desig.  receiver’s  file) 
(file  string  naae,  locates  new  aail  files) 
(used  by  driver,  ptr  to  orig  user  screen) 


: INTEGER; 


: TEXT ; 

:str_66; 

:rayptr; 


( . . . . . . . . ) 

(  WINDOW  ROUTINE  ) 

( . - . - - - - - > 


($1  b: ST  AYWNDO. 341 > 

(ttittitmtttitmtttittmttmtttttuitmitttttttmmtiittttmttt(im) 


THE  FOLLOWING  ARE  THE  USER  INCLUDE  ROUTINES 


(41  b :  ST  ft  YSUBS .  420} 


{ittttttitmtmtmmtmttmmttmmmmtimmtmmtmmtm 

t  CLICK;  Hakes  a  clicking  sound.  t 

ttmMttmutmtmmmmtmmmttmtmtmtmtmmmtumt} 

Procedure  Click; 

Begin 

Sound (2000); 

Del  ay (5) ; 

NoSound; 

End; 


{tmtmmmmtttmmtummtmtmmmtmmmttmmmmtt 

I  CURSQRON;  TURNS  THE  CURSOR  ON  I 

tmumumtuummmtmtmttutmmntmmntnnntmmm} 

PROCEDURE  cursoron (turnon:  BOOLEAN); 

TYPE 

reglist  =  RECORD 

ax,bx,cx,dx,bp,si,di,ds,es,flags:  INTEGER 
END; 

VAR 

reg:  reglist; 

BE6IN 

IF  turnon  THEN 
IF  He«I0:4449]  =  7  THEN 
reg.cx  *0c0d 
ELSE 

reg.cx  40607 
ELSE 

reg.cx  :=  42000; 
reg. ax  :=  40100; 

Intr (410,  reg) 

END; 

itmmtmtmtumtmtmmttmutmmtuumummmmtmm 

t  EXIST;  RETURNS  TRUE  IF  this  file  EXISTS  IN  THE  DIRECTORY  I 

tutttttmmtttutmttttmmtttttttimitummmmmttmtmmt} 

FUNCTION  exist (this.file:  str.66):  BOOLEAN; 

VAR 

fil  :  FILE; 

BE6IN 

Assign  (fil,  thisjile); 

(4I-) 

RESET ( f i 1 ) ; 

{41+} 

exist  :=  (IOResult  -  O'; 

CLOSE (fil); 

END; 


{unmnnmmmmtnnmmmumunumtummmtmmmv, 

{  This  procedure  is  used  to  renaee  a  file  called  FLA6.FIL  to  a  file  called  } 

{  TEHP.FI1.  This  occurs  when  IDFILE.DAT  is  being  accessed.  In  effect,  it  ) 

{  ’locks  out"  IDFILE.DAT  fro*  the  other  processes.  If  FLA6.FIL  does  not  } 

{  exist,  signifying  that  IDFILE.DAT  is  already  in  use,  this  procedure  will  } 

{  go  into  a  loop  until  IDFILE.DAT  is  available  to  be  locked  out.  ) 

{tmmmnmttmtmmmmmmtttmttttnmutmmttmtmu} 

Procedure  lock; 
var  go  :  boolean; 
begin 

assign (teepfile,te«p_fil); 
assign(flagfile,flag_fil); 
unlocked  true; 

REPEAT 

if  exist(flagjil)  then 
begin 

{$1-}  (compiler  directive,  turnoff  run  tiae  check) 

rename (fl agfi 1 e, te#p_f i 1 ) ; 

($1+)  'compiler  directive,  turnon  run  ti»e  check  ) 

go  :=  (IOresult  =  0); 
if  go  then 
begin 

dose(teapfile); 
unlocked  i-  false; 
end; 
end 
else 
begin 

delay ( 1000) ; 
end; 

UNTIL  not  unlocked; 
end; 


[tmtmsmmmtttmmummttmmtttutmtmmttttmitmm) 

{  This  procedure  is  used  to  "unlock’  IDFILE.DAT.  It  does  this  by  renaming  ) 
{  the  file  TEHP.FIL  to  FLA6.FIL.  It  also  sets  a  flag  called  unlocked  to  ) 
{  true.  This  flag  is  used  by  Procedure  Lock.  } 

{tmmtmttttmumttmmmmtmmmtmmmmtmmtmtw 

Procedure  unlock; 
begin 

unlocked  :=  true; 
renaee (te»pfile,flag_fil); 
dose(flagfile); 
end; 


{ttttutittttimtmtuttttmmtmmtttttttmttftttmttttttttmtittt 

*  6ETX;  TAKES  A  PICTURE  OF  THE  USER  SCREEN  1 

tmtimtmttutmmmttmtttmttttmmtmmttmtmtmtttttttt) 

FUNCTION  getx(cl,LN,  ncol,  nln:  INTE6ER):  rayptr; 


m 

i,  (Loop  control  variable) 

j,  (Loop  control  variable) 

nuabytes,  {nuaber  of  bytes) 

start  :  INTEGER;  (start  position) 

ray  :  rayptr;  (position  on  screen  pointer) 

screen_aea  :  ARRAY  Cl. .4000)  OF  Byte  Absolute  $B800:0000; 

BEGIN 
NEW (ray ) ; 

start  :=  ( (LN-1)  *  160)  +  ( (cl  I  2)  -  1); 
nuabytes  :=  (ncol  »  2); 
j  :=  1; 

FOR  i  :=  1  TO  nln  DO 
BEGIN 

Hove(screen_aeatstart],rayA.pixray[jl, nuabytes); 
start  :=  start  ♦  160; 
j  :=  j  +  nuabytes; 

END; 

ray\nc  i-  ncol; 
rayA.nl  :=  nln; 
get*  :=  ray; 

END; 

{mmmmmtmtmmmmtmtmtmtmmttmmttmmmmtt 

t  PUTX;  RETURNS  PICTURE  OF  THE  USER  SCREEN  BUT  SAVES  THE  IMAGE  « 

ttmtmtmmmmutttmtttuttmttmntummmuttitmtmmt) 

PROCEDURE  putx(cl,LN:  INTEGER;  ray:  rayptr); 

VAR 

i,  (Loop  control  variable) 

j,  (Loop  control  variable) 

nuabytes,  (nuaber  of  bytes) 

start  -.INTEGER;  (start  position) 

screen_aea2  :  ARRAY Cl. .4000)  OF  Byte  Absolute  $B800: 0000; 

BEGIN 

start  :=  ((LN-1)  I  160)  +  «cl  I  2)  -  1); 
nuabytes  :=  (rayA.nc  t  2); 
j  :=  l; 

FOR  i  :=  1  TO  rayA.nl  DO 
BEGIN 

Nove(rayA.pixray[j],  screen _aea2Istart), nuabytes); 
start  :=  start  +  160; 
j  :=  j  ♦  nuabytes; 

END; 

if  xfree  then  (  this  signals  PUTXFREE  aas  desired  ) 

dispose(ray); 

END; 


{— . - . - . ) 

(  NON  BEGINS  THE  REAL  PROGRAM  > 

(- - - - - .  - . ) 


{mmtitmmtmtmmimumtmtmttttmutttmmmimmtmt 

*  DRIVER;  I 

tmtmmmmtutttmttttmtmmttmmmmmmmtmumtuw 

PROCEDURE  driver; 


twyblks 

= 

r 

’  . 

user_ext:  STRIN6C4) 

= 

'user’; 

old_ext:  STRINSC2) 

Z 

’.O’; 

(extension  eeaning  an  old  file) 

du«_ext:  STRIN6C4) 

= 

’.due’; 

send_exti  STRIN6C61 

’IN.FIL’;  (naae  of  the  send  isg  file) 

top_of  _f  lie 

= 

’TOP  OF  FILE!  ’;  (warning  eessage) 

end_of_f  lie 

’END  OF  FILE1  ’;  (warning  eessage) 

fro* 

= 

’FROM:  ’; 

to_u 

Z 

’  TO:  ’; 

tiae_f  ile 

= 

’Ditiee.fil’;  (contains  the  base  tiae) 

blanks20 

= 

t 

t  , 

J 

no_border 

S 

o; 

(indicates  no  border) 

no 

= 

0; 

(no  for  an  operation) 

yes 

5 

1; 

(yes  for  an  operation) 

fraae_window 

: 

l; 

(fraae  window) 

left_aargin 

= 

1; 

(beginning  coluan  of  each  line.) 

top  row 

= 

1; 

(beginning  row  of  each  page  starts  here.) 

exit_window 

= 

3; 

(exit  window) 

editorwindow 

2 

5; 

(editor  window) 

warmng_window 

Z 

6; 

(warning  window) 

hlp_win 

= 

8; 

(help  window) 

Erase 

= 

18; 

(erase) 

•ain_screen 

21; 

(aain  screen) 

space 

= 

132; 

(space) 

fl  s  59;  (keyboard  (unction  f 1 ) 
f2  *  60;  (keyboard  function  f 2) 
f3  =  61;  (keyboard  function  f3) 
f4  =  62;  (keyboard  function  f4) 
f5  =  63;  (keyboard  function  f5) 
f6  =  64;  (keyboard  function  f 6) 
f7  =  65;  (keyboard  function  f7) 
f8  s  66;  (keyboard  function  f8) 
f9  =  67;  (keyboard  function  f 9> 
f 10  =  68;  (keyboard  function  flO) 

(FUNCTION  KEYS,  ARROWS,  ETC.  USE  AN  ASCII  ESCAPE  SEQUENCE) 


bksp 

Z 

8 

tab 

X 

9 

enter 

= 

13 

stab 

z 

15 

escape 

2 

27 

hoae 

z 

71 

up 

s 

72 

pgup 

z 

73 

left 

z 

75 

right 

z 

77 

endkey 

z 

79 

(backspace;  rub  out  char  to  left  of  cursor) 
(tab  right  to  the  first  blank  space.) 

(new  line,  inserts  blank  line  if  INS  pressed.) 
(shift/tab  key;  tab  left  to  1ST  blank  space.) 
(escape  key) 

(hoae  key;  go  to  top  of  file,  or  first  page) 
(up  arrow  key) 

(goto  previous  page) 

(left  arrow  key) 

(right  arrow  key) 

(go  to  page  with  last  line  of  text  on  it.  ) 


V.  V  >  *-*  "j*  '  J- 


down 
pgdn 
ins 
del 
s  ft 
s_T2 
alt_T9 
ctr 

ctr 1 _r i qht 
Ctrl  end 
ctrl _bksp 

TYPE 

str2  =  STR1MSE2 ] ;  {string  Tor  user  id) 

u_exten  *  STRIN6C21;  (user  extension} 

strmgl2  z  STRIN6E 12] ;  (used  Tor  warning  lessage  constants) 

txstr  -  STRIN6I801;  'string  Tor  a  line  oT  text) 

stringliO  =  STRIN6C 1603;  (string  Tor  wrap  around  text) 

screenloc  =  RECORD 

character:  CHAR; 
attribute:  Byte; 

END; 

videoraw  =  ARRAY! 1 . . 20001  OF  screenloc; 

{mtttmtmmmttt  record  for  linked  list  node  tmtmtmmmmtttt} 

nodeptr  =  Anode; 
node  -  RECORD 

txt:  txstr; 
next:  nodeptr; 
prior:  nodeptr; 
newln:  INTE6ER; 

END; 

{tmttttmttmtuttt  record  for  linked  list  header  tmtmmtmttmtit) 

list  =  Ahead; 
head  =  RECORD 

LEN6TH:  INTEGER; 

First:  nodeptr; 
last:  nodeptr; 

END; 

Tile_len_66  =  STRIN6C66]; 
textstr  =  STRIN6C803; 

(mmttttmmmm  record  for  input  window  node  tummmttmmttu) 

winnode  =  '‘wins; 
wins  =  RECORD 


exl 

INTEGER; 

ex  2 

INTEGER; 

Tldlen 

INTEGER; 

lyne 

INTEGER; 

STR 

textstr; 

next 

winnode; 

prior 

winnode; 

END; 


=  80;  (down  arrow  key} 

-  81;  {goto  next  page) 

=  82;  (insert  wode  used  Tor  character  and  enter.) 

=  83;  (delete  the  cursor  line.) 

-  84;  (shiTt  key/FI  -  help  screen  Tor  text  editor.  5 

-  85;  (shiTt  key /F2  -  save  text  in  Tile  &  exit  editor.) 

=  112;  (alt  key /T9  -  exit  send  asg  screen  to  wain  wenu.) 
=  115;  (ctrl/leTtarrow;  goto  beginning  oT  line.) 

=  116;  (ctrl/rightarrow;  goto  end  oT  line.) 

=  117;  (ctrl /endkey ;  delete  Trow  cursor  to  eol) 

=  127;  (control  backspace  key) 


10. 


{mtttmttmmmt  record  for  input  window  list  header  tttmmmittttt) 

ainlsthdr  =  Aanhead; 

Nnhead  =  RECORD 

bo*  :  ARRAT  El. . 4 1  OF  INTEGER; 

LEN6TH  :  INTEGER; 
bgclr  :  INTE6ER; 

Tqclr  :  INTEGER; 
aenctir  :  ainlsthdr; 
savitea:  wi nnode ; 
first  :  ainnode; 
last  :  ainnode; 

END; 


{itittmitttmmiiutittttttmmttttttiittitttttiumttimttmttmt 


1 

VARIABLES  FOR  THE  HEART  OF  THIS  PR06RAH  1 

itttimtttttmtittmiiimtutttiuutimmmimiitmitmtmmm} 

VAR 

key, 

(key  value  for  the  file) 

ch, 

(trapped  character  froa  keyboard) 

bell 

CHAR; 

(used  to  ring  bell) 

done, 

(flag  used  in  bldasg) 

aasfound, 

(sets  to  true  if  naae  is  in  idfile.dat) 

first_tiae, 

(indicates  to  getiae,  been  thru  once) 

canceled  aessage, 

(indicates  asg  cancellation) 

inserted, 

(indicates  insert  aode  is  on) 

is_there_text 

BOOLEAN; 

(indicates  if  the  aessage  is  blank) 

chour, 

(character  hour) 

cam 

STRIN6I21; 

(character  ainute) 

ctiae 

STRIN6CS1; 

(character  tiae  e.g.  10:13) 

tap, 

(teaporary  holder  of  the  user  id) 

tojiaae, 

(user  naae  that  asg  is  being  sent  to) 

froa_naae 

STRIN6I20I; 

(user  naae  that  send  the  asg) 

froa_and_froa_naae, 

(contains  FROM:  and  sender’s  user  naae) 

to_and_tojiaae 

STRIN6I271; 

(contains  TO:  and  receiver’s  user  naae) 

aenujiaae 

STRING  1 6fc I ; 

(aain  aenu  naae) 

blanks 

STRIN6IB0I; 

(blank  line) 

var2, 

(holds  value  returned  fora  use  aenu) 

vchoice, 

(holds  value  of  function  key  choice) 

n_cur  _pos, 

(current  position  ptr  for  new  aail  asgs) 

n_add_pos, 

(cur  pos  ptr  for  next  avail  pos  nea  asg) 

o_cur  jios, 

(position  ptr  for  old  aail  asgs) 

o_add_pos, 

(pos  ptr  for  next  avail  pos  for  nea  asg) 

choice, 

(selection  choice  of  function  key) 

recvjd, 

(receiver’s  user  naae) 

save*, 

(used  to  save  cursor  position  x) 

savey, 

(used  to  save  cursor  position  y) 

col  set, 

(coluan  nuaber  of  upper  left  position) 

col  set  1, 

(coluan  nuaber  of  loaer  right  position) 

roaset, 

(roa  nuaber  of  upper  left  position) 

rowsetl, 

(row  nuaber  of  lower  left  position) 

i, 

(loop  control  variable) 

J, 

(loop  control  variable) 

start, 

(start  position) 

count, 

(counter) 

insert_coluan, 

(insert  coluan) 

insert_row, 

(insert  row) 

aaxjines, 

(aaxiaua  nuaber  of  lines) 

bottoa_row, 

(last  row  nuaber) 

coluin, 

(coluan  nuaber) 

row, 

(row  nuaber) 

teap_coluan, 

(teaporary  holder  of  coluan  nuaber) 

colour, 

(backqround  color) 

hlpcolor, 

(help  color) 

stringjength, 

(string  lenqth) 

nqht  aarqin, 

(nqht  aarqin) 

cH,  ' 

(left  coluan) 

cnt  Jlag, 

(count  flaq) 

nodejn, 

(nuaber  of  node  in  linked  list) 

color, 

(color) 

xl, 

(left  coluan  of  window) 

yi. 

(top  line  of  window) 

x2, 

(nqht  coluan  of  window) 

y2, 

(bottoa  line  of  window) 

back, 

(backqround  color  of  window) 

lore, 

(color  of  text  in  window) 

4 back , 

(bqd  color  of  border) 

ffore, 

(color  of  line  in  border) 

bor, 

(I  of  border  lines) 

outpt, 

(1-rewrite  and  2=append) 

hour, 

(hour  value) 

hour  1 , 

(hour  value  froa  user  terainal) 

hour2, 

(hour  value  froa  the  systea) 

am, 

(ainute  value) 

ami, 

(ainute  value  froa  user  terainal) 

•m2 

:  1NTE6ER; 

(ainute  value  froa  the  systea) 

user_file, 

(desiqnates  the  user  file) 

getfi le, 

(in  qetiae  for  aail  aessage  display) 

sub  fil  str, 

(user  file  string) 

in; 

(desiqnates  file  string) 

edt_file 

:  str  66; 

(contains  the  sender’s  aessage) 

erasejil, 

(file  str  used  to  erase  unneeded  asqs) 

quitfile, 

(file  string  for  cancelled  aessages) 

old_fil, 

(file  string  for  tne  old  aessages) 

tiaefile 

:  TEXT; 

(file  string  containing  the  base  tiae) 

wrapper 

:  strmqliO; 

(string  for  wrap  around  text) 

blankstr 

:  txstr; 

(blank  string) 

varl 

:  winlsthdrj 

(holds  value  returned  froa  read  aenuji le) 

unua_ext, 

(user  nuaber  extension) 

fnua_ext 

:  u_exten; 

(file  nuaber  extension) 

1st  " 

:  list; 

(linked  list) 

curnd 

:  nodeptr; 

(current  node) 

{tttttuttituttuttttmmumtmttmtmttttmttmmmttm 

I  6ET_FR0H_NAHE;  AUTOMATICALLY  SETS  SENDER’S  NAME  FROM  IDFILE.DAT  t 

tmtmmtutmmmttmmmmttmmtmtmmmmmttt} 

PROCEDURE  get.Troa.naae; 

VAR 

t_na*e  :  STRIH6C20 ] ; 

t’id  :  INTEGER; 

BEGIN 

Assign (idlist, idFile_dat) ; 
lock; 

RESET (idlist); 
ctr  :=  send.id  -  1; 
seek (idlist, ctr ) ; 
read (idlist, an _entry); 
with  an .entry  do 
begin 

froi.naae  1=  naae; 
end; 

CLOSE (idlist); 
unlock; 

END; 


{uuititmttttuuttmtHtmtumtmmiittttmtttmtimttttimttt 

»  GET.TIME;  6ETS  THE  HOURS  AND  MINUTES  FROM  THE  USER  TERMINAL  I 

itiiitmttmiuumtmttttitttutttttmtmtmmmmmtmtmtu) 

PROCEDURE  get  tiaelVAR  hour,  am  :  INTEGER); 

TYPE 

regpack  -  RECORD 

ax,bx,cx,dx,bp,si,di,ds,es,flags:  INTEGER; 

END; 

VAR 

regs  :  regpack; 

BEGIN 

WITH  regs  DO 
BEGIN 

ax  :=  *2c00; 

MSDos(regs); 
hour  Hi(cx); 
am  :=  Lo(cx); 

END; 

END; 


(immmttimtttmtiiitiimtttttmttitttitttttttttmummi 

I  HOUR .CALC;  USED  IN  CALCULATING  THE  HOUR  IF  THERE  IS  OVERLAP  I 
«  BETNEEN  A  SESSION  AND  THE  24TH  HOUR  I 

ttttitttmttmtttttttitmtiittmitttttttimtmtiittuttmttttt} 

PROCEDURE  hour .calc; 

BEGIN 

IF (hour2  >=  1)  THEN 


IF(ainl+ain2  >=  60)  THEN 
hour : =hour2+l- (24-hour  1 1 
ELSE 

hour : =hour 2- (24-hour  1 ) 
ELSE 
hour:=l; 

IF  (hour=0)  THEN  hour: =24; 
END; 


{tttmmtmttimtmtttutittttttutttttmtitmttmtttmtmimmt 

I  TIMESTAMP;  CALCULATES  TIKE  WHICH  A  MESSA6E  IS  SENT  I 

tttttttttmttutititttmumitttitmttitmtmttttmmtutmimm} 

PROCEDURE  Tiaestaap; 

BEGIN 

get_t i«e (hour  1 ,  ainl);  (get  the  tiae  froa  the  terainal > 

Assign(tiae(ile,  tiaejile); 

RESET (tiaef lie) ; 

READLN(ti»etile,  hour2,  ain2);  (get  base  tiae  established  when) 

CLOSE (tiaef lie);  (EBS  aas  initiated.  ) 

IF(ainl+ain2  >=  60)  THEN 
BEGIN 

•in:sainl+ain2-60; 

IF  (hour  1+hour  2+-1  >  23)  THEN  hour  calc  ELSE  hour:=hourl+hour2+l; 

END 

ELSE 

BEGIN 

ain:=ainl>ain2; 

IF(hourl+hour2  >  23)  THEN  hour  calc  ELSE  hour:=hourl+hour2; 

END; 

STRIhour,  chour); 

STR(ain,  cam); 

IF (hour  <  10)  THEN 
BEGIN 

chour  C21 : =chour Ill; 
chour t 1 ] : =’ O’ ; 

END; 

IF (ai n  <  10)  THEN 
BEGIN 

cain[2I:=cainU]; 

caintllrn’O’; 

END; 

ctiae:=’ 

ctiae:=chour+’:’+cain; 

END; 


(ttitttiitttittiimtttittmitttmtttttiititmttttmmmmtutmtut 

I  SEND;  INCLUDE  FILE  THAT  PREPARES  MESSA6E  FOR  SENDING  I 

t  MENU;  INCLUDE  FILE  THAT  BRIN6S  UP  THE  HAIN  EMAIL  MENU  $ 

I  STRHENU;  INCLUDE  FILE  USED  TO  DISPLAY  USERNAME  LIST  IN  BLDHSS. INC  t 

I  BLDMS6;  INCLUDE  FILE  THAT  ALLONS  THE  USER  TO  ENTER  HIS  HESSA6E6  I 

ttmttmiuttttmumummtimiuumtttttutttmmmttmmtit) 

(♦I  B: SEND. INC) 


{$1  B'.HENU.  INC) 

(»I  B:STRHENU. INC) 
(*I  B: BLDHSG.  INC) 


{tttiumititmmmmiittumttttttttitiiitiitttttttmmmtiittttm 

I  SET_RECE1VER;  6ETS  THE  RECEIVER’S  ID«  AND  NAME  FROM  IDFILE_DAT  I 

mmmttmmmmmtmtmmmttttttmmtmttmtmttmtttttt} 

PROCEDURE  getjeceiver; 


BEGIN 

wasfound  :=  FALSE; 

Assign  ( 1  dl  1  st ,  ldf  1 1  edat ) ; 
lock; 

RESET(idlist) ; 
ctr  :=  1; 

while  (not  wasfound)  and  (ctr  in  It.. nodes!)  do 
begin 

seek ( idl ist, ctr-1 ) ; 
read  (idl  ist,  anentry) ; 
with  an_entry  do 
begin 

IF  (naae  =  tonaael  THEN 
begin 

wasfound  TRUE; 
recvid  :=  id; 
end; 
end; 

ctr  :=  ctr  +  1; 
end; 

CLOSE (idl ist) ; 
unlock; 

END;  {  end  procedure  get  receiver  ) 

{tmmitmmtiimmtmtiiimttmttmitmuimimmmmmitt 

!  PUTJJIR;  TAKES  THE  SENDER  AND  RECEIVER  ID’S  AND  LOCATES  AN  OPEN  POSITION! 

I  IN  THE  RECEIVER’S  DIRECTORY  AND  COPY  ’EDI .Fit’  FRQH  THE  SENDER  I 

I  jIRECTORY.  I 

tmtmtmutttmmimummttmtmimstmmtmmmtmuuu) 

PROCEDURE  putjJir; 

CONST 

hdr  *  ’  TINE  NESSA6E  SENT:  ’; 

TYPE 

filenaae  s  STRIN6C66 J;  (file  naiel 

VAR 

cur  jos  :  INTE6ER; 
u_ext, 

Text  :  STRING  I2J; 

validjine  :  STRIN6  1801; 

open  jos  :  BOOLEAN; 

sendfile, 


(current  asg  pos  w/i  the  file  directory) 
(user  string  nuaber) 

(file  nuaber  concat  onto  file  string) 
(sender  file  valid  text  line  storage) 
(signals  open  position  w/i  directory) 
(asg  naae  to  be  sent  in  sender’s  dir) 


recvfile  :  4 1 1 enaae; 


{naie  of  aessage  in  receiver’s  dir) 


sendfile  :=  userjiletablelsendjdl  +  send_ext ; 
open  jqs  :=  FALSE; 
cur jos  :=  0; 

STR  Irecvjd,  u_ext); 

WHILE  NOT  open  jos  00 
BEGIN 

cur  jos  :=  curjos  +  1; 

STR  (curjos,  f_ext); 

recvfile  :=  user  Jiletablelrecvjd]  ♦  userjxt  ♦  u_ext  ♦ 
ne*_ext  ♦  f_ext; 

IF  NOT  exist (recvf lie)  THEN 
BEGIN 

open  jos  :=  TRUE; 

Assign (outf lie,  recvFile); 

REHR I TE ( out  file); 

END; 

END; 

Assign(infile,  sendfile); 

RESET(infile); 

IF  log  on  AND  (not  for  ward)  AND  ((NOT  broadcast)  OR  (broadcast  AND  (bt  *  1)))  THEN 
BEGIN 

append (log  file); 

WHILE  NOT  EOF (inf i 1 e)  DO 
BEGIN 

READLN(infile,valid_line); 
writeln (outf ile,valid_line) ; 

»ritelnllog_file,  validjine); 

END; 

aritelndogjile); 

writelndog  file/H  End  of  Message  ID; 

«riteln(log_f  lie,’— . . .  . . . 

writelndog  file); 

CLOSE  U  og_f i 1 e) ; 

END 

ELSE 

BEGIN 

if  (forward)  then 
begin 

tieestaep;  (get  the  tiee  the  eessage  is  sent) 

writeln(outf  ile,fro«_and_fro«_na»e!hdr,chour[n,chour[2],  ’ ,c»inU),cein[21); 
writeln (outf i le, t j_and_to_na«e) ; 
nr i tel n (outf lie); 
end; 

WHILE  NOT  EOF (inf lie)  DO 
BEGIN 

READLN(inf lie,  validjine); 
writeln(outfile,  validjine); 

END; 

END; 

CLOSE  < l nf 1 1 e) ; 

IF  NOT  broadcast  THEN  Erase (inf ile) ; 


wr i tel n ( out f i 1 e ) ; 
if  (not  forward)  then 

wri teln (outf lie, ’ll  End  of  Message  It'); 
CLOSE (outfile); 

END;  <  end  procedure  Putdir  } 


(itmtttttimttiitmititttmtmuttiiiuttiitmmutttttitmttmitt 

I  6ETNS6;  6ETS  THE  MESSAGE  ENTERED  BY  THE  SENDER  I 

tmittmtmiumttmmtiuttmtmmtttmttttiiittmitttiiitittiti} 

PROCEDURE  get  esq } 

{*1  B: GET. INC) 

BEGIN 

first_tne:-TRUE; 

STR  Isendjd,  unu«_e*t); 

sub_I i ! _str ;  =  usrjjath  ♦  unueext; 

get! l 1 e: =  user  ext  ♦  due  ext; 

*1**2; 
yi :=6; 
x  2: =79; 
y2: =18; 
back: =blue; 
tore: =yel low; 
tback : =cyan ; 
ffore:=yellow; 
edtt ile: =getfi le; 
bor : =2; 

undo*  reader; 

END;  {  end  procedure  Set_«sg  ) 


(IttIUttitlllUUttm  DRIVER:  MAIN  PROGRAM  IttttlltmtU mtltttlf tilt tt} 

BEE  IN 

NHILE  KeyPressed  DO  READ (kbd , keychr ) ;  (dear  any  waiting  keys) 
froenaee  ’  ’; 

■enujiaee  :  =  i_*enujat; 
done: =FALSE ; 
bell  :  =  CHP ( 7 ) ; 
reply  :=  false; 
for  uard  false; 

REPEAT 

if  (not  reply)  and  (not  forjtard)  then 
begin 

putx(l,l,pic); 
broadcast  :  =  FALSE; 
cursoron(FALSE)} 

NARY (heaptog); 

varl  :*  read_eenuj  ile(«enu_naae) ; 

var2  :*  use_eenu ! var 1 , 2, blue, uhite, FALSE);  (display  earn  aenu) 

if  (var2  -  1)  or  ( var 2  -  2)  then 
begin 

get_froa_naae;  (get  sender’s  usernaae) 


it  (Frotjiate  =  ttyblks)  then 
var2  :=  3; 
end; 

cur soron (TRUE) ; 
choice  :=  var2; 

RELEASE (heaptop); 

TextBack&round (bl ack) ; 

ClrScr; 

end 

else 

begin 

textbackground(black); 
drscr; 
choice  1; 
end; 

{mttttitimmtmuitttmumuttmmitmmimimtmttmittti 

»  CASE  1;  SEND  MESSAGE  t 

itmitututmtttitimtmuuiuummtittttmtiiitmmittmtiiti) 

CASE  choice  OF 
1:  BEGIN 

bt  :=  1; 

NARK (heaptop); 
skip  :=  False; 

bld_tsg;  (build  the  tes&age) 

if  (skip)  and  (Forward)  then 
erase(inFile); 

lF  (not  skip)  then  (iF  escape  key  not  pressed  then  continue) 

begin 

reply  i-  False; 

Assign (1 istid,  ldFiledat); 

Nmdotd.  1,80,25); 
puts (1,1, pici ; 

IF  NOT  (cancel ed_tessage)  THEN 
BEGIN 

•kMin (28, 11,43, 15, black*bl ink, green, 1); 

cursoron(FALSE) ; 

triteln; 

writelnCHtNORklNSIU’ ); 

IF  broadcast  THEN 
BEGIN 
lock; 

RESET (1 istidl ; 
ctr  1; 

while  ctr  in  [1,. nodes)  do 
begin 

seek ( 1 1 st l d , ctr - 1 ) ; 
read(listid,an  entry); 
with  an  entry  do 
begin 

recvid  i1  id; 
iF  inate  <>  blanks20)  then 
begin 

putdir;  (put  tail  in  user’s  dir.) 


V>.  r.'/.V.V.VV, 


'V>>.VV>.V.V.'aV>.V.VV.V 


WWW 


(set  Hag,  used  by  put_dir 


bt  :=  bt+1; 
end; 
end; 

ctr  ctr  ♦  1; 
end; 

Erase  (m-t  i  let ; 

CLOSE  1 1 1 sti d ) ; 
unlock; 

END 
ELSE 
begin 

get  receiver;  {  get  the  receiver’s  usernaee  5 
lE  aasEound  then 

putjjir  (  put  tail  in  user’s  dir.  ) 

else 
begin 

assigniinEile.intilstri; 

erase(inEile); 

end; 

end; 

r««in; 

END;  {  end  iE  not  canceled_»essage  ) 

cursor  on ( TRUE ) ; 

end;  (  end  iE  not  skip  > 

canceledeessage  :=  FALSE; 

RELEASE (heaptop1 ; 

E or  ward  :=  False; 

END; 

{tmtmtitmmittttmmmtmimuimiiiiutiiuitttituMMtttm 

I  CASE  2;  READ  HESSA6E  I 

tuttmtiutmttttmttutiiutiiittiitttuttttmtmtttumtmtttttu} 

2:  BEGIN 

get_«sg; 

WmdoM  (1,1,80,25); 

END; 


{iimimtmmitttttitmHtttmmitmitiitimitimmttitiiitutti 

I  CASE  3;  RETURN  TO  PREVIOUS  SCREEN  » 

tmttttttttttmtititmtttuttimitMtttuttttiuiitttmttttttttmiitt} 

3:  done := TRUE; 

END; 

UNTIL  done; 

END;  {  exit  the  driver) 


THE  ABOVE  ARE  THE  USER  INCLUDE  ROUTINES 


PROCESS  INTERRUPT 


) 


The  following  procedures  displace  standard  interrupts. 


Do  not  put  Variables  or  Constants  in  this  Procedure.  It  will 
cause  registers  to  be  clobbered  during  the  Interrupt  routine 
when  Turbo  attempts  to  allocate  storage  for  local  variables 
or  parameters.) 

PROCEDURE  stay_intl6;  (Keyboard  Interrupt  16  Service  Routine) 

(If  anything  but  "Qur_HotKey'  is  pressed,  the  key  is  passed 
to  the  standard  keyboard  service  routine.  B_U_T,  when  Qur 
Hotkey  is  recognized,  a  hotkey  bit  is  set.) 


BEGIN 

($1  b:STfiYI 16.410) 

END;  (STAYJNT16) 

PROCEDURE  stay  i nt  1 3;  (BIOS  Disk  interrupt  Routine) 

BE6IN  (Sets  a  flag  while  disk  is  active) 

(»I  b:STAYI13. 410) 

END;  (STAYJNT13) 


PROCEDURE  stay_int21;  (DOS  interrupt  21  Service  Routine) 
BE6IN  (Sets  a  flag  while  INT  21  is  active) 

(♦I  b:STAYI21. 410) 

END;  (STAYJNT21) 


PROCEDURE  stayJntB;  (Tiier  Interrupt  0  Service  Routine) 

(Activates  Stayres  during  pgi  execution) 

BE6IN  (when  safe  to  do  so.) 

(  add  the  following  include  for  the  Clock  Demonstration  by  Neil  Rubenking  ) 
(tl  b : STAYI8. 420) 


END;(Stay_!nt8) 


PROCEDURE  stay  int28; 
BE6IN 

(*I  b:STAYI28. 410) 
END;  (Stay  Jnt28) 


(Idle  Interrupt  28  Service  Routine) 
(Invokes  Stayres  fro«  the  DOS  prompt) 

(continue) 


PROCEDURE  staysave;  (Prolog  to  Resident  Turbo  Code) 


BEGIN 

($1  b:STAYSAVE.420) 
getdta (saveddtaC 1 T , saveddtaC21 ) ; 
getpsp(savedpsp); 
setpsp(ourpsp) ; 
setdta(ourdtaIl],ourdta(2]); 
newctlc(21  :=  CSeg; 
newctlcd)  OfsUret); 
getctlc(savedctlc) ;  setctlc(newctlc) ; 
int24on; 


(Save  callers  DTA  address) 
(Save  callers  PSP  Segment) 
(Set  our  PSP  Segment) 

(Set  our  DTA  address) 


(Get/Save  the  users  Ctrl-C  vector) 
(Trap  Dos  Critical  Errors) 


( 

( 

! 


INVOKE  USER  PROCEDURE  HERE 


> 

) 

) 


I-  i*'*  m  j 


BEGIN 

xp  :=  wherex;  {get  the  lain  x  cursor  position) 
yp  :=  wherey;  {get  the  lain  y  cursor  position) 
pic  :=  getx (1,1,80,25); Itake  a  picture  of  the  screen) 


keychr  :=  10; 
driver; 

xfree  :=  true; 
puts ( 1 , 1 , pi  c ) ; 
xfree  :=  false; 
gotoxy(xp.yp) 
END; 


{clear  any  residual) 

{call  tain  routine) 

{set  flag  to  release  itage  in  putx) 
{put  the  user  screen  back) 

{put  the  cursor  back  where  it  was) 


END  USER  PROCEDURE  HERE 


setpsp (savedpsp ) ; 
setdta (saveddtat 1 3 , saveddtaC2 1 ) ; 
setctlc (savedctlc) ; 
int24off ; 


{  Restore  Callers  PSP  Segient) 

{  Restore  the  users  DTA) 

{  Restore  the  users  Ctrl-C  Vector) 

{  Reiove  Our  Critical  Error  routine) 


BEGINNING  OF  THE  STflYRSTR  ROUTINE 


{$1  b : STAYRSTR. 420) 


END  OF  THE  STflYRSTR  ROUTINE 


MAIN 


{  The  lain  prograi  installs  the  new  interrupt  routine  ) 
{  and  lakes  it  perianently  resident  as  the  keyboard  ) 
{  interrupt.  The  old  keyboard  interrupt  Vector  is  ) 
{  stored  in  Variables  ,  so  they  can  be  used  in  Far  ) 
{  Calls.  ) 
{  ) 


{  The  following  dos  calls  are  used: 

{  Function  25  -  Install  interrupt  address 
{  input  al  ~  int  nuiber, 

{  ds:dx  =  address  to  install 

{  Function  35  -  get  interrupt  address 
{  input  al  =  int  nuiber 

{  output  es:bx  =  address  in  interrupt 

{  Function  31  -  terminate  and  stay  resident 
{  input  dx  =  size  of  resident  prograi 

{  obtained  froi  the  leiory 

{  allocation  block  at  ICs:0  -  $10  +  31 


iw 


V  '.k '■ .-  ’>V 

*  “  W  (L.  ,  V*  * 


u 


{  Function  49  -  Free  Allocated  Heaory 
{  input  Es  *  Block  Segaent  to  free 


ourdseg:=  DSeg;  (Save  the  Data  Segment  Address  for  Interrupts) 

oursseg:=  SSeg;  (Save  our  Stack  Segment  for  Interrupts) 

getpsp (ourpsp) ;  (Local  PSP  Segaent) 

getdta (ourdtat 1 3 , our dta( 2] ) ;  (Record  our  DTA  address) 
userprograa:=Ofs(staysave) ;  (Set  target  of  call  instruction) 
regs.ax  :=  $3000  ;  (Obtain  the  DOS  Version  nuaber) 

Intr(dosi21,regs); 

dosversion  :=  halfregs.al;  (  0=1+,  2=2.0+,  3=3.0+  5 

(Obtain  the  DOS  Indos  status  location) 


regs.ax  :=  $3400; 

Intr(dosi21,regs); 
dosstatl.ip  :=  regs.bx; 
dosstatl.es  :=  regs.es; 
dosstat2.es  :=  regs.es; 
dossseg  :=  regs.es; 

bytecount  :=  0;  (Search  for  CMP  (critical  flag!, 00  instruct.) 

WHILE  (bytecount  <  $2000)  (then  Mov  SP,stackaddr  instruction  ) 

AND  (MeaNCdosstat2.cs: bytecount.)  <>  $3e80) 

DO  bytecount  :=  SUCC (bytecount); 

IF  bytecount  =  $2000  THEN  (  Couldn’t  find  critical  flag  addr  ) 
BEGIN 

aritelnl’StayRes  incoapatiblity  with  Operating  Systea’); 
wri teln ( ’ StayRes  will  not  install  correctly,. Halting’ ); 

HALT; 

END; 

(  Search  for  the  DOS  Critical  Status  Byte  address.  ) 

(  Bytecount  contains  offset  froa  DosStatl.CS  of  the  ) 

(  CMP  [critical  flag), 00  ) 

(  M  ....  ) 

(  Mov  SP, indos  stack  address  5 

IF  Me»(dosstat2.cs:bytecount+7)  =  $bc  THEN  (MOV  SP,xxxx) 

BEGIN 

dosstat2.ip  :=  MeaN(dosstat2.cs:bytecount+21; 
dossptr  :=  MeaW[dosstat2.cs:bytecount+8];  (INDOS  Stack  address) 
END 
ELSE 
BE6IN 

wri tel n ( ' Cannot  Find  Dos  Critical  byte. ..Halting’); 

HALT; 

END; 


(Search  for  CMP  (critical  flag!, 00  instruct.) 
(then  Mov  SP,stackaddr  instruction  ) 


InLine!$fa) ; 


(Disable  interrupts) 


(  Setup  Our  Interrupt  Service  Routines  5 

setup_i nterrupt (biosi 16,  bios_intl6,  Of s (stay_i nt 16) ) 
setup  interrupt (biosiO,  bios  int8,  Of s (stay  intB) > ; 


(keyboard) 

(tiaer) 


setup_interrupt (biosi  13,  biosjntl3,  Of s (stay_intl3) ) ;  (disk) 
setup_i nterrupt idosi 21 ,  dos_i nt21 ,  Of s (stay_i nt21 > ) ;  (DOSfunction) 
setup_interrupt (dosi28,  das_int28,  Of s <stay_int28) ) ;  (DOS  idle) 

InLine ($f b) ;  (Re-enable  interrupts) 

{ommtmmmtmttmmmmmmtmttutmmmtmmtmtmt} 


(  INITIALIZE  YOUR  PROGRAM  HERE 

r 


unmttmmmummmimimmumummimmmmmtmmt; 

(  Initialize  Prograa  Here  since  we  Mill  not  get  control  again 
until  ’Our_HotKey“  is  entered  froa  the  Keyboard.  } 


log_on:=FALSE; 

Assign (user, usr_id_str); 
RESET (user); 

READLN (user , send_i d ) ; 

CLOSE (user); 

TextColor (Mhite! ; 

writeln; 

writeln; 

writelnt’IM  EMAIL  SYSTEM  IS 

xritelnl’m  PRESS  SHIFT /F7 

writeln; 

writeln; 

done  :=FALSE; 

xfree  ;=  FALSE; 

■sgint  :=1; 

IF  exist (logstr )  THEN 
BEGIN 

log_on:=TRUE; 

Assign  ( log  Jile,log_str) 
END; 

tereinate  :=  FALSE; 


(  get  user’s  ID  nuater  froa  USER. ID  ) 


NON  RESIDENT.  Ml’); 
TO  ENTER  EMAIL  III’); 


(look  For  aessage  nuaber  1) 


(if  eaail.log  exists,  then  user  has  re-) 
(guested  a  log,  get  it  ready  and  set) 
(flag  so  put_dir  Mill  know) 

(dear  the  prograa  exit  flag) 

(don't  want  to  take  eaail  out  of  aea) 

(if  set  to  true  this  pg*  will  end) 


END  OF  INITALIZE  PROGRAM  CODE 


(Non  terminate  and  stay  resident.  The  following  Call  utilizes  the 
DOS  Terminate  i  Stay  Resident  function.  Ne  get  the  aaount  of 
aeaory  by  fetching  the  «e»ory  allocation  paragraphs  froa  the  Meaory 
Control  Block.  This  was  set  by  Turbo  initialization  during  Int 
21/function  4A  (shrink  block),  calculated  froa  the  alniaua  and  aAxiaua 
options  aenu.  The  MCB  sits  one  paragraph  above  the  PSP.) 


regs.ax  :=  $3100  ; 

regs.dx  i-  HeaN  ECSeg-1 : 00031+1  ; 

Intr  (dosi 21 ,regs) ; 

(  END  OF  RESIDENCY  CODE  ) 


(  Pass  return  code  of  zero  ) 

(  Terainate  and  Stay  Resident  ) 

(  Prog_Size  froa  Allocation  Blk) 


{ttummmtttuututmtmtumuttimtmmmtttttttittttuum 


ECHECK. PAS  GARY  HCALUM  August  1987 


!  PROGRAM  DESCRIPTION:  t 

t  I 

t  ECHECK  is  a  aeaory-resident  program  which  is  used  in  conjunction  with  ! 

*  another  prograa  called  EMAIL.  Together  they  Ton  the  network  aessagmg  ! 

!  systea  Tor  PLEXSYS.  ECHECK  scans  each  user’s  directory,  every  15  seconds,! 

I  to  see  iT  there  is  any  new  aail.  IT  so,  it  notiTies  the  user  with  an  ! 

I  audible  and  visible  signal.  In  addition,  this  prograa  perToras  the  ! 

!  Tunction  oT  checking  Tor  screen  aessages,  also  called  'notes*.  These  I 
I  notes  are  created  and  sent  Troa  the  DOS  proapt  by  a  prograa  called  SEND.  ! 
t  Once  the  note  has  been  placed  in  the  user’s  directory  with  the  extension  ! 
t  .NES  then  this  prograa  will  notiTy  the  receiver  by  and  audible  signal  I 
t  and  by  displaying  the  actual  note  on  the  screen.  The  user  has  to  press  ! 

I  C  to  renove  the  aessage.  ! 

t  I 

I  INPUT/OUTPUT  FILES:  ! 

t  ! 

!  (1)  USER. ID  :  contains  the  unique  user  nuaber  in  ASCII  (1-16)  ! 

I  (2)  USERX.HES  :  X  =  user  t,  .MES  Tile  is  on-screen  note  I 

I  (3)  USERX.N!  :  X  =  user  t,  t  -  1,2,3,...,  new  aail  aessage  t 

(  I 

I  PR06RAM  REQUIREMENTS:  » 

t  Meaory  required  is  approxiaately  30k  bytes  oT  RAH,  Any  type  oT  disk  t 
I  drive  is  coapatible  since  the  prograa  is  loaded  directly  in  aeaory  and  I 
I  does  not  access  the  disk  containing  the  source  prograa  aTterwards.  I 
!  ECHECK  was  developed  and  tested  using  HS/DQS  Version  3.1  and  TURBO  Pascal! 

!  Version  3.0.  This  prograa  should  be  asseabled  as  a  COM  Tile  with  ami-  ! 

!  aua  dynaaic  aeaory  set  to  0275  and  aax.  dynaaic  aeaory  set  to  0275.  This  ! 

!  ensures  enough  aeaory  is  allocated  to  the  heap  to  avoid  collisions  while  ! 

!  liaiting  the  aaount  oT  aeaory  reserved  Tor  the  heap.  1 

!  ! 

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!> 

(IR+) 

($C-1 

PROGRAM  echeck; 

titttttttliimitlititt  CONSTANTS  USED  IN  THE  SHELL  tit!!!!!!!!!!!!!!!!!!!!!} 

CONST 


aaxwin 

=  10; 

(Max  t  windows  open  at  1  tiae, 

used  in  window. inc) 

esc 

*  «27; 

(character  equivalent  oT  Escape  Key) 

alt_T9 

=  1112; 

(Alt  Function  9  Scan  code 

> 

ctrF_f9 

-  1229; 

(Ctl-F9  (1102+127)  Key  code 

) 

quit  key 

=  Ctrl _f 9; 

(Quit  and  Release  Meaory) 

alt  ’ 

=  08; 

(Shift  bits  at  40:17  > 

Ctrl 

=  04; 

(the  code  Tor  the  control  key) 

left_shift  =  02; 
rghtshi +t  *  01; 
biosiB  -  8; 
biosi 16  =  <16; 

biosi 13  =  $13; 

dosi21  =  $21; 
dosi  28  =  $28; 


(used  to  shift  left) 

(used  to  shift  right) 

(Bios  Tiaer  interrupt) 

(Bios  Keyboard  interrupt) 

(Bios  Disk  interrupt) 

(DOS  service  router  interrupt) 
(DOS  Idle  interrupt) 


{ttmttmtmmttm  type  declarations  used  in  the  shell  mmmtutmn 

TYPE 

regtype  =  RECORD 

ax ,bx ,cx ,dx , bp, si ,di , ds , es, f 1 ags: INTE&ER 
END; 

half regtype  =  RECORD 

al,ah,bl,bh,cl,ch,dl,dh:Byte 

END; 

filenaee_type  =  STRINGC64I; 

str.66  =  STRINGC66); 

vector  =  RECORD  {Interrupt  Vector  type) 

ip,cs  : INTEGER  ; 

END  ; 

rayptr  =  Abigray; 

bigray  =  RECORD 

nc.nl: INTEGER; 

pixray:  ARRAY II, .4000]  OF  Byte; 

END; 

{ttttttmttmttmtu  typed  constants  used  in  the  shell  mmumuttutt) 


CONST 

our  Jiotkey  :  Byte  =  90; 


{scan  code  for  SHIFT-F7) 


{ttmttmmmmm  scan  code  can  be  changed  to  hake  ttmmmmtttttt) 
{ttmmtitttmmm  another  key  active  as  the  host  key.  mmtmmtttt) 

{  This  table  tarks  those  INT  21  functions  which  aust  be  passed  ) 

{  without  aodif ication.  They  either  never  return,  fetch  paraaeters  ) 

{  froa  the  stack,  or  aay  be  interrupted  by  a  TSR.  ) 


functab 


ARRAY [ 0. .$6f]  OF  Byte  = 

(1,1, 1,1,  1,1, 1,1,  1,1, 1,1,  1, 0,0,0,  {0-0 

0,0, 0,0,  0,0, 0,0,  0, 0,0,0,  0,0, 0,0, 

0,0, 0,0,  0,0, 1,0,  0,0, 0,0,  0,0,0, 1,  (26, 2F) 
0,1, 1,1,  1, 1,0,0,  0,0, 0,0,  0,0, 0,0,  {31-35) 
0,0, 0,0,  0,0, 0,0,  1,1, 1,1,  1,1, 0,0,  {48-4D) 
1,1, 1,1,  0, 1,0,0,  1, 0,0,0,  0,1, 1,1,  {50-53,5 


{50-53, 55,58, 5D-5F) 


1,1, 1,1,  1,1, 1,1,  1,1, 1,1,  1,1, 1,1);  (60-62) 


intr_f lags  :  Byte  =  0; 

intl3_on  =  04; 

int21_on  =  08; 

status  :  Byte  =  0; 

hotkey_on  *  01; 


(Active  interrupts  flags) 

(Disk  interrupt  is  active) 

(DOS  Service  router  is  active) 
(Status  of  current  TSR  activity) 
(Received  the  Hotkey) 


inuse  =  02; 

foxs  =  Iff; 

dosversion  :  Byte  =  0; 

waitcount  :  Byte  =  0; 

userprograa  : INTEGER  =  0 

ourdseg  :  INTEGER  =  0 

oursseg  : INTEGER  =  0 

dosdseg  : INTE6ER  =  0 

dossseq  : INTEGER  =  0 

dossptr  : INTEGER  -  0 

dosssiz  : INTEGER  =  0 

usrdseq  : INTEGER  =  0 

usrsseq  : INTEGER  =  0 

usrsptr  [INTEGER  =  0 

ourpsp  [INTEGER  =  0 


{TSR  is  active) 

(workaround  for  inline  hex  FF) 
(Current  Version  of  DOS) 

(Wait  to  activate  count) 

(Offset  to  Users  Prograa  Code) 

(Turbo  Data  Segaent  Value  ) 

{Turbo  Stack  Segaent  Value  ) 

(Dos  Dataseqnent  value  ) 

{Dos  Stack  Sequent  Value  ) 

(Dos  Stack  pointer  value  ) 

(Dos  Stack  size  in  words  5 
(Interrupted  Datasegeent  value  ) 
(Interrupted  Stack  Segaent  Value  ) 

(Interrupted  Stack  pointer  value  ) 


{  The  following  constants  tMUSTt  retain  in  the  IP:CS  order.  ) 


{  StaySave  uses  the*  as 

JMP  targets 

) 

bios_int8 

[vector  = 

(ip[0;cs:0l; 

(BIOS  Tiaer  Interrupt  Vector  ) 

bios_intl6 

[vector  = 

(ip:0;cs:0); 

(BIOS  Keyboard  Interrupt  Vector  ) 

bios_intl3 

[vector  = 

(ip: 0; csi 0) ; 

{BIOS  Disk  Interrupt  Vector  ) 

dosJnt21 

[vector  = 

(ip:0;cs:0); 

(DOS  Sevice  Interrupt  Vector) 

dos_int2B 

[vector  = 

(ip:0;cs:0) ; 

(DOS  idle  Service  interrupt  Vector) 

dosstatl 

[vector  = 

(ip:0;cs:0); 

{Pointer  to  IND0S  byte) 

dosstat2 

[vector  = 

(ip:0;cs:0); 

(Pointer  to  CRITICAL  byte) 

version 

[STRINGI4 

=  ’4.15’; 

{  Current  Version  nuaber  ) 

(NEEDED  FOR  SETTIHE) 

tiaer_ae$sage  : STRINGI80]  =  ”; 

tiaer_on 

-- 

{flag  set  when  tiler  is  on) 

froa_tiaer 

>  8; 

{flag  set  when  tiaer  expires) 

tiier _hi 

[INTEGER  = 

0; 

tiaerjo 

[INTEGER  = 

0; 

new_ext 

:STRINGI2) 

«  ’.N'; 

(used  to  designate  new  aail  asgs) 

note_ext 

[STRINGC4] 

=  ’.«es’; 

(contains  note  aessage) 

usr_id_str  : str_66  =  ’D:\NAIL\USER. ID’ ; {contains  user’s  id  nuaber) 
usrjath  :str_66  =  ’D:\HAIL\USER’;  (init  path  strg  w/i  ea  user  dir) 

cttmtmtt  change  tinerjihe  to  the  value  (in  seconds)  that  ttmutttmu ) 

tiaer_tiae  =  15;  (in  secs,  tiae  new  «ail  ic;  shown) 

{Ittmttttt  YOU  KANT  THE  PROGRAM  TO  CHECK  FOR  MEN  MESSAGES  ttmtltUttUtU) 


{umtttmtmttmtt  variabiec  tttmutmmtmtmmtttmtmmmt) 
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’•alfregs  :  halfregtype  Absolute  regs; 

keychr  :  CHAR  j 

bytecount  :  INTE6ER ; 

savedpsp  :  INTE6ER;  {  Prograa  Segaent  Prefix  pointers  } 

error  :  INTEGER;  (  I/O  results  ) 

good  :  BOOLEAN;  {  1/0  results  SMitch  } 

ourdta  : ARRAY  11.. 21  OF  INTEGER;  (Local  DTA  pointer} 

saveddta  : ARRAY  El.. 21  OF  INTEGER;  (Interrupted  DTA  pointer) 


(NEEDED  FOR  HAIL  PROGRAM) 


tics 

xfree, 

done 

■sgnua 

usrno 

ctiae 

heaptop 

hidock 

lodock 

nua, 

asgint, 

tpos, 

sendjd, 

xp, 

yp 

np^char 

ajine 

note, 

user 

nennote, 

nuafile, 

newfile 

pic 


(♦I  b:STAYNNDQ.341) 


: REAL;  (used  to  set  tiaer} 

(flag  used  to  signal  dispose (ray) ) 

: BOOLEAN;  (flag  used  in  bldasg) 

:STRINGC23;  (aessage  nuaber  of  the  nai 1 ) 

: STR1N6E2) ;  (user  nuaber} 

: STRINSC53 ;  (character  representation  of  the  tiae) 

: ''INTEGER;  (used  to  aark  top  of  heap) 

: INTEGER  Absolute  *40  :*6e; 

: INTEGER  Absolute  *40  :*6c; 

(nuaber  of  actual  aessages,  Chk_nu«) 
(aessage  nuaber  in  integer  foraat) 
(cursor  position  for  note  uindon) 
(sender’s  user  nuaber) 

(used  in  aail_aan  for  xcursor  position) 
! INTEGER;  (used  in  aailjian  for  ycursor  position) 


! INTEGER; 
:CHAR; 

: STRIN6E65] ; 


: str_66; 
irayptr; 


(user  idfile  string) 

(contains  the  note  aessage) 

(teap.  work  file  for  Chkjiua) 

(file  string  naae,  locates  net*  Bail  files) 
(ptr  to  orig  user  screen) 


ROUTINE 


(ttmimmmtmmtmtmtmmimtmtmmmmmmmmmm) 


THE  FOLLOWING  ARE  THE  USER  INCLUDE  ROUTINES 


{mnutumummmummunnnumnmmttmtmntnnmttu) 

(*I  b: STAYSUBS. 420) 


PROCEDURE  SETTING  NEEDED  TO  INITIALIZE 


DOUBLE  TO  REAL  NUMBER  CONVERSION 
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FUNCTION  doub I e_to_r eal ( i , j  :  INTE6ER) : REAL; 

VAR  teap  :  REAL; 

BEGIN 
teap  :=  1; 

IF  teap  <  0  THEN  teap  :=  teap  +  65536.0; 
teap  teap  t  65536.0; 

IF  j  0  THEN  teap  :=  teap  +  65536.0  +  \  ELSE  teap  :=  teap  +  j; 
double_ta_real  :=  teap; 

END; 


{ - - - > 

{  REAL  TO  DOUBLE  NUMBER  CONVERSION  } 

{- - - - - } 


PROCEDURE  real _to_doubl e (r  :  REAL;  VAR  l,  j  :  INTE6ER); 

VAR  it,  jt  :  REAL; 

BEGIN 

it  :=  INT (r/65536.0) ; 
jt  :=  r  -  it»65536.0; 

IF  it  >  MAX  INT  THEN  i  :=  TRUNCht  -  65536.0)  ELSE  l  :=  TRUNC(it) ; 
IF  jt  >  MAXINT  THEN  j  :=  TRUNCijt  -  65536.0)  ELSE  j  :=  TRUNC(jt); 
END; 


{ . - - - ) 

(  SET  TIME  TURN  TIMER  ON  ) 

{ . > 


PROCEDURE  set  ti«er (the  tiae  :  INTEGER); 

BEGIN 

tics  ;=  doubl e_to_real  (hiclock,  lodock); 
tics  :=  tics  +  thetiaetlB. 206481934; 
real _to_doubl e (tics,  tiaer_hi,  tiaerjo); 
status  :=  status  OR  tiaeron; 

END; 

{tmmmttmmmmttmtmtmmmtmummttmttmmumtt 

I  EXIST;  RETURNS  TRUE  IF  thisjile  EXISTS  IN  THE  DIRECTORY  I 

tmmmtimmtmmmmmtmmtmumttmmmmtitttmtttt} 

FUNCTION  existlthis  file:  str_66i:  BOOLEAN; 

VAR 

fil  :  FILE; 

BEGIN 

Assign (f l 1 ,  this  file); 

($1-) 

RESET  (fil); 

«!♦} 

exist  :=  (IOResult  =  0); 

CLOSE (fil); 

END; 


{mmmmttmmmtimitttumutmmmutmmummtmiuu 

t  6£TX;  TAKES  A  PICTURE  OF  THE  USER  SCREEN  « 

ttttmtstmmtmmmttmmtmmmmttmttmmmmmtttuu} 

FUNCTION  getx (ci , LN,  ncol,  nln:  INTEGER) :  rayptr; 

VAR 

i,  (Loop  control  variable) 

j,  (Loop  control  variable) 

nuabytes,  {nuaber  of  bytes) 

start  :  INTEGER;  {start  position) 

ray  :  rayptr;  {position  on  screen  pointer) 

screen  jiea  :  ARRAY  II. .40001  OF  Byte  Absolute  $B800:0000; 

BEGIN 

NEN(ray); 

start  :=  ((LN-1)  I  160)  +  < (cl  I  2)  -  1); 
nuabytes  :  =  (ncol  »  2); 

J  1; 

FOR  l  : =  1  TO  nln  00 
BEGIN 

Hove (screen_aeaistartl,rayA. pi xrayljl, nuabytes); 

start  :  =  start  +  160; 
j  :=  j  +  nuabytes; 

END; 

rayA.nc  :s  ncol; 
ray\nl  :  =  nln; 
getx  :=  ray; 

END; 

{ttutmmttmttttmtmittmmmmmttimttmmuttmttmttu 

I  PUTX;  RETURNS  PICTURE  OF  THE  USER  SCREEN  BUT  SAVES  THE  IHA6E  I 

ummtiiimtmmmmmtiumimimmimttiimtmimtmmi) 
PROCEDURE  putx (cl ,LN:  INTEGER;  ray:  rayptr); 

VAR 

i,  (Loop  control  variable) 

j,  {Loop  control  variable) 

nuabytes,  {nuaber  of  bytes) 

start  : INTEGER;  {start  position) 

screen_aea2  :  ARRAY! 1 .. 40003  OF  Byte  Absolute  $B800:0000; 

BEGIN 

start  :  =  ((LN-1)  I  160)  +  ((cl  »  2)  -  1); 
nuabytes  :  =  (rayA.nc  t  2); 
j  i; 

FOR  i  : =  1  TO  rayA.nl  DO 
BEGIN 

Hove (rayA. pi xrayUJ,screen_aea2[start], nuabytes); 
start  :=  start  +  160; 
j  : =  j  +  nuabytes; 

END; 

if  xfree  then 

dispose(ray);  {  release  the  iaage  after  signaling  user  ) 

xfree  :=  false; 

END; 


6. 


{tmttttmtmuttmmtmtmttmtmmmmummttitimmtttmi 

I  CHK.MSG;  FINDS  THE  NUMBER  OF  MESSAGES  ON  THE  QUEUE  (assuae  no  deletes)  I 

tttmmmmtttmmttmmumtmtttmmtmmmutimttttttmt} 

PROCEDURE  chk_asg; 

BEGIN 

done:-FALSE; 

■sgi nt: =1 ;  {start  at  lessage  1) 

REPEAT 

STR (isgint, asgnua); 

nexfile  :=  usr  jath+usrno+ne*_ext+asgnua; 

IF  exist (newf i 1 e)  THEN  asgint:=asgint+l  (count  up  if  it  exists) 

ELSE 

BEGIN 

done:=TRUE;  (set  (lag  to  exit) 

STR (asgi nt-1 , esgnua) ;  {non  have  k  asgs  on  queue) 

END;  (in  asgnua  and  next  isg  t) 

UNTIL  done;  (in  asgint) 

done: =FALSE; 

END; 

(mmututmtmmmtumttmttmtmmmttmitmttmmttmit 

I  CHKNUM;  FINDS  THE  ACTUAL  NUMBER  OF  MESSAGES  IN  THE  QUEUE  t 

mmmmmttmtmmmmmmmmmmmmmmttmtmmt) 

PROCEDURE  chknua; 

BEGIN 

done  :=  false; 

nua  1;  (start  at  aessage  1) 

REPEAT 

STR (nua, asgnua);  (convert  nua  to  string  of  2) 

nuafile  :=  usrjath+usrno+nea  ext+asgnua; 

IF  exist (nua-f ile)  THEN  nua  :=  nua+1  (is  there  a  aessagetnua)?) 

ELSE  done  :=  true;  (if  so,  increaent  counter) 

UNTIL  done; 
done  :=  false; 

END; 


(start  at  aessage  1) 


NON  BEGINS  THE  REAL  PROGRAM 


{tmmttmtmmtmtmtmmttmttttmtmmmmtmmmm 

»  MAILJ1AN;  NOTIFIES  THE  RECEIVER  THAT  HE  HAS  MESSAGES  WAITING  $ 

ttmmtmtmtmtmttmuttmumttmmmmttttmmmtttt) 


PROCEDURE  aail_ean; 
VAR 
tics, 
hi  word, 

loxord  :  REAL; 
hours, 

Bins, 


N6t  2 ] ; 

tiae  :  STRIN6110); 
countdown  :  INTEGER; 


(itiiiittittiiiiiiiiiiiiiiutttiiiitmtiiimtiiitmtttmmut 

I  PEBEEP;  PIN&S  A  BELL  TO  NOTIFY  RECEIVER  THAT  HE  HAS  HS6S  I 
I  LOCAL  PROCEDURE  t 

utiummimtmtttmmtmmtummmummmuttm) 

PROCEDURE  bebeep; 

VAR  n  ;  Byte; 

BE6IN 

NcSound; 

FOR  n  :=  1  TO  3  DO 
BE6IN 

Sound (800) ;  Del  ay (50 ) ; 

Sound (400) ;  Delay (50) ; 

END; 

NoSound; 

END; 


I6IN 

WHILE  KeyPressed  DO  READ (Kbd , keychr ) ;  (dear  any  waiting  keys) 

IF  (status  AND  tiaeron)  =  tiaeron  THEN  Ilf  our  tiaer  is  ticking) 

BEGIN 

IF  (status  AND  froajuer)  =  froajiaer  THEN  (and  the  tiaer  Finished) 
BEGIN  (then  dear  tiner  request) 


status  status  AND  NOT  (ti aer  on  +  f roa  tiaer ) ; 

Chknua;  (how  aany  actual  aessages  are  there?) 

iF  (nu«  <  isgint)  then  (have  any  been  read  since  last  tiae?) 

•sgint  :=  nua;  (iF  so,  change  the  isg  index) 

STR (asgint , asgnua) ;  (convert  aessage  nuaber  to  string) 

STR(send_id,usrno);  (convert  user  nuaber  to  string) 

newFile:=usr  jath+usrno+new_ext+asgnua;  (get  naae  oF  asg  wanted) 

IF  exist(newFile)  THEN  (Is  there  new  aail?) 

BE6IN  (IF  new  aail,  tell  the  user.) 

chk_asq;  (call  to  check  nuaber  oF  aessages) 

bebeep;  (ring 

akwin (5, 7, 75, 13, black, green, 3) ; 

ClrScr; 

SotoXY (21,2) ; 

NRITELNCmtl  NEW  HAIL  mil  ); 

SotoXY (18,3); 

NRITELNfasgnua, ’  NEW  HESSA6E(Sl  WAITING'); 

6otoYY (13,5) ; 

WR 1 TELN < ’ ENTER  SHIFT-F7  TO  READ/SEND  MESSAGES' ) ; 


a  bell) 

(  Hake  a 


window) 


gotowy (48,4); 

Del  ay (2000) ; 
rawin; 

END; 

STR(send_id,usrno) ; 

newnote  usr_path*usrno+note_ext; 

iF  exist (newnote)  then 


(let  the  user  read  the  aessage) 
(reaove  the  window! 


assign (note, newnote); 
reset (note); 
bebeep; 

■kxin (5,8, 74, 12, blue, cyan,  1); 
drscr; 
tpos  :=  1; 

xhile  not  eo-f (note )  do 
begin 

readln(note,a_hne); 
gotoxy (3 , tpos) ; 
wri  teln  (a_l  me) ; 
tpos  :=  tpos  +  1; 
end; 

dose  (note); 
gotoxy (3, tpos) ; 
textcolor (white+bl ink) ; 
xriteC  Press  C  to  continue  ’) 

gotoxy (33, tpos); 
inp_char  :=  ’  x ' ; 

xhile  (inp_char  <>  'CM  and  ( i np  char  <>  ’ c* )  do 
readlkbd,inp_char); 
r»xin; 

erase(note) ; 

END; 

set  timer (timer  tine):  (restart  the  timer) 


THE  ABOVE  ARE  THE  USER  INCLUDE  ROUTINES 


PROCESS  INTERRUPT 


The  following  procedures  displace  standard  interrupts. 

Do  not  put  Variables  or  Constants  in  this  Procedure.  It  will 
cause  registers  to  be  clobbered  during  the  Interrupt  routine 
when  Turbo  attempts  to  allocate  storage  (or  local  variables 
or  parameters.) 


PROCEDURE  stay  i nt 1 6; 


(keyboard  Interrupt  16  Service  Routine) 


(K  anything  but  "Our_HotKey*  is  pressed,  the  key  is  passed 
to  the  standard  keyboard  service  routine.  BUT,  when  Our 
Hotkey  is  recogmred,  a  hotkey  bit  is  set.) 


BEGIN 

■t:  b:STAv; 

END;  (STA»  INT 16) 


»V  *V*"i'wV*V  »V  »V  *\'  *V  v.  rT."Ir.",T»-.T^.T,'V7»'.’-J-r.'»'.  '■v  wv  «v  *v »v  »-b^v  -V 


PROCEDURE  stay_int!3;  (BIOS  Disk  interrupt  Routine) 
BEGIN  (Sets  a  Hag  while  disk  is  active’ 

($1  b :  STAY  1 1 3 . 4 10) 

END;  1STAYJNT1JJ 


PROCEDURE  stay _i nt21 ;  (DOS  interrupt  21  Service  Routine) 
BEGIN  (Sets  a  flag  while  INT  21  is  active) 

(*I  b : STAY  12 1 . 41 0) 

END;  (STAYJNT21) 


PROCEDURE  stay_int8;  (Tuer  Interrupt  0  Service  Routine) 

(Activates  Stayres  during  pga  execution) 

BEGIN  (when  safe  to  do  so.) 

!  add  the  following  include  for  the  Clock  Desonstration  by  Neil  Rubenking  ) 
(*I  b:CLKI8.410) 

:tl  b : STAY  18. 420) 

END; (Stay_Int8) 


PROCEDURE  stay  int28; 
BE6IN 

($1  b: STAYI 28. 4 10) 
END; (Stay_Int28) 


(Idle  Interrupt  28  Service  Routine) 
(Invokes  Stayres  fro*  the  DOS  proipt) 

(continue) 


PROCEDURE  staysave;  (Prolog  to 

BEGIN 

($1  biSTAYSAVE.420) 
getdta(saveddta[l),saveddtaI2)!; 
getpsp  <  savedpsp) ; 
setpsp (ourpsp) ; 
setdta (ourdtatl 3 , ourdtaC23) ; 
newctlcI2)  :=  CSeg; 
newctlcll)  :=  Ofs(iret); 
getctlc(savedctlc);  setctlc(newctlc); 
int24on; 


Resident  Turbo  Code) 


(Save  callers  BTA  address) 
(Save  callers  PSP  Segment) 
(Set  our  PSP  Segsent) 

(Set  our  DTA  address) 


(Get/Save  the  users  Ctrl-;  /e:tor 
(Trap  Dos  Critical  Errors; 


V 

/ 

i 

{ 


INVOKE  USER  PROCEDURE  HERE 


BEGIN 

xp  :=  wherex;  (get  the  »aio  >  z ; 

yp  :=  wherey;  (get  the  »a:n  •  y 

pic  getxd,  1,80,25' ;  (ta«e  a  p.Y/t  : 
keychr  :=  10; 

*ail_*an; 
xfree  true; 
putx (1 , l.pic 1 ; 
gotoxyHp,  /z' 

END; 


•  w 
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setpsp(savedpsp); 

setdta  ( saveddtaC 1 ] , saveddtat  21 ) ; 

setctlc (savedctlc) ; 

int24off; 


{  Restore  Callers  PSP  Segaent) 

{  Restore  the  users  DTA) 

{  Restore  the  users  Ctrl-C  Vector! 

{  Reaove  Our  Critical  Error  routine) 


BE6INNIN6  OF  THE  STAYRSTR  ROUTINE 


C«I  b ; ST ft YRSTR . 420> 


END  OF  THE  STAYRSTR  ROUTINE 


N  A  I  N 


{  The  lain  prograe  installs  the  nee  interrupt  routine  ) 
{  and  takes  it  permanently  resident  as  the  keyboard  } 
{  interrupt.  The  old  keyboard  interrupt  Vector  is  ! 
{  stored  in  Variables  ,  so  they  can  be  used  in  Far  ! 
{  Calls.  ! 


{  The  following  dos  calls  are  used: 

{  Function  25  -  Install  interrupt  address 
1  input  al  8  int  nuiber, 

(  ds:dx  8  address  to  install 

{  Function  35  -  get  interrupt  address 


(  Function  31 
{ 

( 

{ 

{  Function  49 
{ 

{ - 


input  al  8  int  nueber 

output  es:bx  8  address  in  interrupt 

terminate  and  stay  resident 

input  dx  8  size  of  resident  prograe 

obtained  froe  the  aeaory 

allocation  block  at  ECssO  -  $10  ♦  31 

Free  Allocated  Heaory 

input  Es  8  Block  Segaent  to  free 


8E6IN 

ourdseg:8  DSeg; 
oursseg:8  SSegj 
getpsp(ourpsp); 
getdta(ourdtall!,ourdtaI2]); 
userprograa:=0f s(staysave) ; 
regs.ax  :8  $3000  ; 
Intr(dosi21,regsl; 
dosversion  »*  halfregs.al; 

regs.ax  :8  $3400; 
Intr(dosi21,regs); 
dosstatl.ip  :»  regs.bx; 


(Save  the  Data  Segaent  Address  for  Interrupts! 
(Save  our  Stack  Segaent  for  Interrupts) 

(Local  PSP  Segaent! 

(Record  our  DTA  address! 

(Set  target  of  call  instruction! 

(Obtain  the  DOS  Version  nuaber) 

(  0*1+,  2*2.0+,  3=3.0+  ) 

(Obtain  the  DOS  Indos  status  location! 


dosstatl.es  :s  regs.es; 
dosstat2.es  :=  regs.es; 
dossseg  :=  regs.es; 

bytecount  :=  0;  (Search  (or  CMP  (critical  (lag], 00  instruct.) 

NHILE  (bytecount  <  $2000)  (then  Nov  SP,stackaddr  instruction  ) 

AND  (MeeH(dosstat2.cs:bytecount]  <>  $3e80) 

DO  bytecount  :  =  SUCC (bytecount); 

IF  bytecount  =  $2000  THEN  (  Couldn’t  (ind  critical  (lag  addr  } 
BEGIN 

HRITELN (’ StayRes  incoapatiblity  with  Operating  Systes’!; 
NRITELNPStayRes  Mill  not  install  correctly..Halting’); 

HALT; 

END; 

{  Search  (or  the  DOS  Critical  Status  Byte  address.  > 

(  Bytecount  contains  ottset  (roe  DosStatl.CS  ot  the  1 

(  CUP  [critical  (lag], 00  } 

(  JNZ  ....  } 

(  Nov  SP,indos  stack  address  } 

IF  Hea(dosstat2.cs:bytecaunt+7]  -  $bc  THEN  (NOV  SP,mx> 

BEGIN 

dosstat2.ip  :=  HeiNldosstat2.cssbytecount+2]; 
dossptr  !=  HeeN[dosstat2.cs:bytecount+8];  (INDOS  Stack  address) 
END 
ELSE 
BEGIN 

NRITELN< 'Cannot  Find  Dos  Critical  byte... Hal  ting’); 

HALT; 

END; 

InLine($(a);  (Disable  interrupts) 


(  Setup  Our  Interrupt  Service  Routines  ) 

setup ..interrupt  (biosi8,  biosJntS,  0(s(stay_int8));  (tiser) 
setup_interrupt(biosil3,  bi os_int  13,  0(s(stayjntl3));  (disk) 
setup _interrupt(dosi21,  dos_int21,  0(s(stay_int21));  (DOS(unction) 

setup _interrupt(dosi28,  dos_int2B,  0(s(stay_int28));  (DOS  idle) 

InLine($(b);  (Re-enable  interrupts) 

(tmmttttmmttttmitmmtmttmtmttmtttmtmmmmmmt) 

( - ) 

(  INITIALIZE  YOUR  PROGRAM  HERE  } 

{ - ) 

(mtmmtmttmttmttttmmttmttttttttmtmttttitmttmmttttt) 


(  Initialize  Prograa  Here  since  «e  will  not  get  control  again 
until  *0ur_HotKey*  is  entered  froa  the  Keyboard. 
set_tiaer  (tiaer_tiae);  (start  the  (irst  tiaer ) 

Assign (user, usr_id_str); 

RESET (user); 

READIN (user, send jd);  (get  user's  nuaber) 

CLOSE (user); 


xfree  :*  FALSE; 
■sgint:=i; 


(look  for  aessage  nuaber  1} 


{ - ) 

(  END  OF  INITALIZE  PROGRAM  CODE  } 

( - } 


{  Non  stay  resident.  The  folloaing  Call  utilizes  the  DOS  Stay  Resident 
Ne  get  the  aaount  of  aeaory  by  fetching  the  aeaory  allocation  paragraphs 
froa  the  Meaory  Control  Block.  This  aas  set  by  Turbo  initialization  during 
Int  21/function  4A  (shrink  block),  calculated  froa  the  alniaua  and  aAxiaua 
options  aenu.  The  HCB  sits  one  paragraph  above  the  PSP.  } 

{  Pass  return  code  of  zero  ) 

{  Terainate  and  Stay  Resident  ) 

{  Prog.Size  froa  Allocation  Blk) 


{  END  OF  RESIDENCY  CODE  } 


regs.ax  :=  $3100  ; 

regs.dx  HeaN  ICSeg-l: 00031+1  ; 

Intr  (dosi21,regs); 


APPENDIX  C 
PROGRAM  LISTING 
of 

LOGON. PAS 


{tittitmumttttttmmustmiutsmuttttttitttiututtuttmtitmut} 
{I  This  prograt  is  called  by  60NAIL.BAT  and  is  used  to  allow  a  user  to  enter  t) 
it  their  own  usernate  prior  to  loading  the  EMIL  systew  into  resident  tetory.l) 
(I  It  handles  all  error  checking  before  taking  any  entries  to  IDFILE.DAT,  the!) 
(t  file  which  contains  all  usernates  and  node  nutbers  for  the  network.  t) 

{tmmmmtmmtutmmmmmtmttttttmmtmmutmtmmtt} 

{«-> 


Prograt  Logon; 


CONST 


nodes  =  16; 
flag.fil  : 
tetp_fil  : 
userjd  : 
idfile_dat  : 


stringl661  =  ’E:FLA6.FIL’; 
string(661  =  'EsTEHP.FIL’; 
stringC661  =  ’D:\HAIL\USER.ID’; 
stringt661  =  ’E: IDFILE.DAT’ ; 


{  used  by  Lock  and  Unlock) 

{  used  by  Lock  and  Unlock) 

{  contains  user’s  id  nutber) 

{  file  for  tapping  id’s/nates) 


TYPE 

entryjiate  =  string!201;  {  randot  access  file,  IDFILE.DAT  ) 

entry  =  record 

Unaae  :  entryjiate; 
id  :  integer; 
end; 

st_20  =  string[20); 
str_66  =  string[661; 


VAR 


nate 

:  stringC20I; 

idlist 

:  file  of  entry; 

anentry 

:  entry; 

send  jd,t,x,ctr 

:  integer; 

tetp,ordval 

:  integer; 

go.val 

:  char; 

unlocked, 

etpty, done, told 

:  boolean; 

right,  dupe 

:  boolean; 

tetpfile, 

{  assigned  to  TEHP.FIL  ) 

flagfile, 

{  assigned  to  FLA6.FIL  ) 

user 

:  text; 

1  assigned  to  USER. ID  ) 

{tuttmmttttmmtmttittmmimttttitumtmmmsttmmmi) 

(  EXIST;  RETURNS  TRUE  IF  this.file  EXISTS  IN  THE  DIRECTORY  ) 

{mmtttmmttttttmtittttmttittttmttimmtmtimtttimitmt) 

FUNCTION  exist (this  file:  str  66):  BOOLEAN; 

VAR 

fil  :  FILE; 


BE6IN 

Assignffil,  this  file); 
III-) 


u  .ti  .u  .«< 
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i  J'i  l  t  i  fti  I 


RESET(fil); 

(II*) 

exist  :*  IIOResult  *  0)j 
CLOSE  <  f i H ; 

END; 

{tmtttimmtttmuttttittmtmmttutttttttmmtttmttmtmttt} 

{  This  procedure  is  used  to  renaae  a  tile  called  FLA6.FIL  to  a  tile  called  1 
{  TEHP.FI1.  This  occurs  when  1DFILE.DAT  is  being  accessed.  In  ettect,  it  1 
{  ‘locks  out*  IOFILE.DAT  troe  the  other  processes.  It  FLA6.FIL  does  not  > 
{  exist,  signifying  that  IDF1LE.DAT  is  already  in  use,  this  procedure  Mill  } 
{  go  into  a  loop  until  IDFILE.DAT  is  available  to  be  locked  out.  ) 

{ttmtutmmttmttmummtmmmmmnmmtmmttmmw 

Procedure  lock; 
var  go  :  boolean; 
begin 

assign(teaptile,teap_til); 
assign(tlagtile,tlag_til); 
unlocked  :=  true; 

REPEAT 

it  exist(flag_fil)  then 
beg  lr, 

{<1*1 

renaee(tlagtile,teep  til); 

{«♦) 

go  :=  (IOresult  *  0); 
if  go  then 
begin 

dose(teapfile); 
unlocked  :*  false; 
end; 
end 
else 
begin 

delay(lOOO); 

end; 

UNTIL  not  unlocked; 
end; 


{iitmtttttttttutttmtitttttmmttttttmmtmttmstttmtimmtt} 
(  This  procedure  is  used  to  ‘unlock*  IDFILE.DAT.  It  does  this  by  renaming  1 
{  the  file  TEHP.FIL  to  FLA6.F1L.  It  also  sets  a  flag  called  unlocked  to  1 
(  true.  This  flag  is  used  by  Procedure  Lock.  1 

{tmtttitmmiuttiititmttittmtmttittttiitmmttitiittmimttt} 

Procedure  unlock; 
begin 

unlocked  :■  true; 
renaee(teepfile,f  lag  Jill; 
close(flagfile); 
end; 


It 


<j*  i.*  i  •  j.t  #,»  #.«  #.  1  »  *  »  I  *  i  a  i-<  *  *  r  ,  *-| 
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{tmtmtttmmmmtmmmtmtmmitmttmtmmtttmummti} 

{  THIS  PROCEDURE  IS  USED  BY  THE  MIN  PROSRAH  TO  CHECK  AN  ENTERED  USERNAME  FOR  > 
{  SPACES  ANYNHERE  WITHIN  THE  LENGTH  OF  T*  NANE  THAT  IT  IS  ENTERED.  UP  TO  20.  } 
{  IF  AT  LEAST  ONE  SPACE  IS  FOUND,  IT  WILL  DISPLAY  AN  ERROR  MESSAGE  AN  REQUEST  } 
{  A  REENTRY.  NO  OTHER  PROCEDURES  ARE  CALLED  UNTIL  A  CORRECT  NAME  IS  ENTERED.  1 

{mmtitmttmttmtmttmmmmittttmmmmmttmmtmmtt} 

Procedure  space_chk(naee2  :  st_20); 
var 

i  :  integer; 

naoe3  :  string[20I; 

beqin 
t  :=  0; 

right  :=  false; 

naae3  :»  ’  ’; 

t  :sIength(naae2l; 
for  i  1  to  t  do 
na»e3Ii]  :*  naae2Ii]; 
i  8*  1; 

while  (naetJIi]  <>  ’  M  and  (i  <>  t>  and  (t  <>  0)  do 
i  :*  i+l; 

if  <i  <>  t)  and  (t  <>  0)  then 
i  :*  i+l; 

if  (naae3[il  *  ’  ’)  and  (naw3Ul  <>  ’  ’)  and  (t  <>  0)  then 
right  :=  false 
else 
begin 

if  (naae3[ll  <>  ’  ’)  and  (naeeSCi-ll  <>  *  ’)  or  (t  *  0)  then 
right  :*  true 
else 

9 

end; 

if  not  right  then 
begin 

writelni’NO  SPACES  ALLONEO,  PLEASE  REENTER’); 
end; 

end;  (  end  Procedure  space_chk  } 


{umtmummuttitmutttmtmtttttmmmmtttmmttmmtttit) 

{  THIS  PROCEDURE  IS  USED  TO  CONVERT  ALL  CHARACTERS  OF  THE  ENTERED  NAME  TO  UP-  ) 
{  PER  CASE.  A  HORNING  STRING  IS  USED  TO  COPY  THE  CONVERTED  CHARACTERS  TO.  IF  ) 
{  A  CHARACTER  IS  ALREADY  ENTERED  IN  UPPERCASE,  IT  HILL  NOT  DE  AFFECTED  DY  THE  1 
{  THE  CONVERSION.  ONLY  CHARACTERS  A-Z  ME  CONSIDERED  VALID  ENTRIES.  } 

{tttittmttmmttmttttttttitttttttttttttttttmttttmtimmmmmtt} 


Procedure  ch_case(var  naoe2  :  st_20); 
var 

naoe3  :  stringt201; 
stop  :  boolean; 

i,  val  s  integer; 


naoe3  :« 


stop  :*  false; 
i  :=  1; 
repeat 

val  :=  ord(naae2[il); 

if  ((val<s122)  and  <val >=97) )  or  ( fval >=65)  and  (val<=90))  then 
begin 

naae3Ii)  :•  upcas«(na»e2Ii ]) : 
i  :=  i  ♦  1; 
end 
else 

stop  :=  true; 
until  stop; 
naee2  :  =  naae3; 

end;  {  end  Procedure  ch_case  1 


{utmnnutnnuttnmmmumtmtmnnmttmmntntutmimt) 

{  THIS  IS  THE  ACTUM.  PART  OF  THE  PROGRAM  WHICH  PROMPTS  THE  USER  FOR  EACH  USER-) 
{  NAHE.  IT  ALSO  DOES  THE  NECESSARY  ERROR  CHECKING  FOR  EACH  INPUT.  THE  USER  } 
{  IS  NOT  REQUIRED  TO  ENTER  A  NAHE  FOR  EVERY  NODE.  A  CARRIAGE  RETURN  SIGNIFIES) 
{  NO  ONE  IS  ASSIGNED  TO  THAT  POSITION  ON  THE  NETHORK.  THE  USER  HAS  THE  OPPOR-) 
{  TUNITY  TO  ADD  A  NAHE  AT  A  LATER  POINT  HOWEVER.  } 

{tmmmmmmtttmttttttttttttttttmutmttmtmttimtmtmtm} 


Procedure  Hain; 
begin 

eepty  :=  true; 

REPEAT 
REPEAT 
naae  :*  ’ 
uriteln; 

uriteCEnter  your  usernaae  — >  '); 
readln(naae); 
space_chk(naae); 
if  right  then 
begin 

teap  :*  length (naae); 

*  :*  1; 

REPEAT 

ordval  :a  ordlnaaelxl); 

if  ((ordval<*122)and(ordval>=97))or((ordval>*G5)and(ordval<*90))  then 
x  i*  x  ♦  1 
else 
begin 

if  (ordval  <>  32)  then 
begin 

aritelnC  INVALID  CHARACTER,  PLEASE  REENTER’); 
right  :*  false; 
end; 
end; 

UNTIL  (x  ■  teap+1)  or  not  right; 
end; 

UNTIL  right; 
ch  case (naae); 


’itwvwwwv  irvrvmT ; 
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if  (t  =  0)  then 

witelnl’You  aust  enter  a  usernaae,  TRY  A6AIN!’) 
else 

eepty  :=  false; 

UNTIL  not  eepty; 
end;  (end  procedure  Main  } 


{unuuumuunummuummtmmtummtntmtmnmmmn) 

{  This  procedure  contains  the  prieary  loop  for  entering  a  usernaae.  It  calls  } 
{  procedure  aain  which  accoaplishes  all  error  checking  on  the  naae  which  is  1 
{  input  by  the  user.  This  procedure  Hill  also  give  the  user  a  chance  to  aod-  ) 
{  their  usernaae,  before  entering  into  the  duplicate-usernaae  check.  } 

{ttmmtmmmmmmtmummmmmmmmmmmmmmti} 

Procedure  inp  naae; 
begin 

done  :=  false; 

REPEAT 

right  :=  false; 

Nain; 

go_val  :=  ’s'; 

while  (go_val  <>  ’N’l  and  (go_val  <>  ’n’)  do 
begin 
witeln; 

writelnl’ You  have  entered  the  fol Inning  usernaae  - >  ’,naae); 

witeln; 

witel’Do  you  hant  to  change  it?  (Y/N)  — >  ’); 
readln(ga_val); 

if  (go_vaf  *  'Y’l  or  (go_val  *  'y’l  then 
begin 

right  :=  false; 
aain; 
end; 
end; 

if  right  then  done  s=  true; 

UNTIL  DONE; 
done  :=  false; 
end; 

(tmttuittmmtmtttmiti  End  Procede*w  ttmmtmmttmmmm} 


begin 

witeln; 

witeln; 

textcolor(nMte); 
as*l?n(user,user_id); 
r-wet(user) ; 
readln(user,sendjd>; 
close (user); 

inp_naac;  {  call  Procedure  Inp_naae  > 

assign (idlist, ldfi le  dat); 

lock; 


L 


'jnunu.TJi 


reset (idlist); 
dupe  :=  false; 
ctr  :=  1; 

while  (ctr  in  Cl.. nodes])  and  (not  dupe)  do 
begin 

seek(idlist,ctr-l); 
read (idlist,an_entry> ; 
with  an_entry  do 
begin 

if  (sendjd  <>  id)  then 
begin 

if  (naae  =  unaee)  then  C  is  naae  a  duplicate?  } 
dupe  :=  true;  {  if  yes,  set  flag  ) 

end; 
end; 

ctr  :=  ctr  +  1; 
end; 

if  not  dupe  then 
begin 

done  :=  true; 

seek  (idlist,  sendjd-l); 

read (idlist, an_entry); 

with  an_entry  do  {  if  not  a  duplicate  then  } 

begin  <  assign  usernaae  to  proper  ) 

unaae  :=  naae;  C  entry  position  in  IDFILE.DAT  ) 

id  :=  sendjd; 
end; 

seek(idlist,send  jd-1); 
arite(idlist,an_entry); 
end 
else 
begin 
ariteln; 

aritelnCDuplicate  usernaae  found,  please  enter  another  naae.’); 
unlock; 
inp_naae; 
lock; 
end; 

dose(idlist); 

UNTIL  DONE; 
unlock; 
uriteln; 
ariteln; 

Nriteinrttmmtttmmtmttmttmmmt’); 
aritelnl’l  Naae  entered  into  user  directory  *’); 
HriteinrimtmtMtmmttmttmmttttm’); 
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APPENDIX  D 


PROGRAM  LISTING 


SEND. PAS 


mmtmmttmmmmmtmmmmmmmmmmmtmmtmt} 

{t  This  prograa  is  used  to  send  an  'on-screen*  aessage  to  any  user  on  the  t) 
it  the  network.  It  can  only  be  invoked  froa  the  DOS  proapt.  Alter  the  t) 
(I  user  types  'SEND',  they  will  be  proapted  for  the  receiver’s  usernaae.  I) 
{>  This  naae  is  checked  against  IDFILE.DAT  to  see  if  it  is  valid.  Once  a  tl 
(I  naae  is  correct  and  valid,  the  user  will  be  proapted  for  the  aessage  t) 
(I  which  cannot  exceed  65  characters  in  length.  After  the  aessage  has  been  tl 
ft  created  the  prograa  places  the  aessage  into  a  teaporary  file  called  <1 
(I  TEHP.HES  which  is  located  in  the  user’s  subdirectory  HAIL.  The  prograa  I) 
It  will  then  atteapt  to  place  is  in  the  receiver’s  HAIL  subdirectory  if  no  l> 
it  other  aessage  is  being  read.  Note:  there  is  no  queueing  function.  The  I) 
ft  prograa  will  siaply  loop  until  there  is  an  available  slot  to  place  the  I) 
(t  aessage.  t) 

{mmumnumnumtmnntmmnttutmmtumnmtmtmm} 


Prograa  Send (input, output); 


CONST 

nodes  -  16;  (nuaber  of  stations  on  the  network) 

TYPE 

entryjiaae  =  string!20); 

entry  =  record  Irandoa  access  file,  IDFILE.DAT) 

naae  :  entryjiaae; 

id  :  integer; 

end; 

str_66  -  string[66J; 
str_20  =  string[20); 
str_4  =  string[4]; 
user  table  =  arrayll.. nodes!  of  str_66; 
filenaae  =  string[66); 

TxString  =  String[72); 


CONST 

proapt l  = 
proapt2  - 
froa  = 
user _id_str: 
userx  : 
idfile_dat  : 
teap_file  : 
flag_fil  : 
teap_fil  : 
note  ext  : 


'Enter  the  receiver’s  usernaae  --->  ’; 

’Enter  your  note  below;  liait  65  characters.’; 
’HESSA6E  FROH:  ’; 


str_66  =  ’D:\HAIL\user.id’; 
str_4  =  ’user’; 
str  J>6  =  ’D:\HAIL\idfile.dat’ 
str_66  =  ’D:\HAIL\teap.aes’; 
str*66  =  ’D:\HAIL\flag.fil’; 
str_66  =  ’D:\HAIL\teap.fU’; 
str_66  =  ’.aes'; 


{contains  user  id  nuaber) 

{user  extension) 

{contains  all  usernaaes/idl’s) 
(holds  send  aessage  teaporarily) 
{used  by  Lock  and  Unlock) 

{used  by  Lock  and  Unlock) 
{aessage  extension) 


Esc 

Bksi 
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user  filetable:  user_table  = 
(’E:\USER1\I1AIL\’,  ' 
’E:\USER2\HAIL\’, 
’E:\USER3\HAILV , 
’E:\USER4\HAIL\’, 
’E:\USER5\MAIL\' , 
’E:\USER6\MAIL\’, 
’E:\USER7\HAILV, 
’E:\USER8\HAIL\’, 
'E:\USER9\BAILV, 
’E:\USER10\MAIL\’ , 
’E:\USERtl\NAILV , 
’E:\USER12\HAIL\’, 
’E:\USER13\HAIL\’, 
’E:\USER14\MAIL\’, 
’E:\USER15\HAIL\’, 
’E:\USER16\HAILV ); 


{  user  path  table  used  in  PUT. DIR  } 

{  procedure  to  enable  tile  copying  } 

{  froa  one  node  directory  to  another  1 


(  Reaove  the  coaaent  brackets  and  append  the  folloMing  user  table  entries  1 
{  to  the  above  user  table  so  that  software  is  setup  to  handle  32  nodes  on  } 
{  the  network.  Currently,  the  systea  is  set  up  for  16  user  nodes.  } 


{  'E:\USER17\HAIL\', 
’E:\USER18\HAIL\’, 
'E:\USER19\HAILV, 
’E:\USER20\MAIL\’, 
’E:\USER21\HAIL\’, 
'E:\USER22\NAIL\', 
’E:\USER23\HAIL\’, 
’E:\USER24\NAILV , 
’E:\USER25\HAIL\’, 
’E:\USER26\NAIL\’, 
’E:\USER27\HAIL\’, 
’E:\USER2B\NAIL\’ , 
’E:\USER29\HA1L\’, 
’E:\USER30\HAILV, 
’E;\USER31\HAILV, 
’E:\USER32\NAIL\’);  ) 


user 

text; 

teap 

text; 

not ef lie 

text; 

flagfile 

text; 

teapfile 

text; 

thejiote 

stringt801 

a_line 

stringI803 

recvfile 

filenaae; 

sendjd, 

ctr, 

recvjd, 

{  contains  user’s  id  nuaber,  USER. ID  } 
{  teaporary  storage  for  the  aessage  ) 

<  destination  file  for  aessage  } 

{  FLAG.FIL,  used  to  lock  1 
{  TEHP.FIL,  used  to  lock  1 
{  contains  the  actual  aessage  1 
{  one  line  in  a  file,  80  chars.  ) 

{  concatenated  destination  file  naae  ) 
{  sender’s  id  nuaber  ) 

{  counter  for  accessing  IDFILE.DAT  ) 

{  receiver’s  id  nuaber  } 

{  teaporary  variables  ) 


nuapraa  :  integer;  {  nuaber  of  paraaeters  used  by  sender  ) 

userno  :  stringt21; 

an_entry  :  entry;  {  one  record  froa  IDFILE.DAT  1 

idlist  :  file  of  entry;  (  randoa  access  file  } 

fro a_naae  :  str_20;  {  sender’s  usernaae  ) 

to_naae  :  str_20;  (  receiver’s  usernaae  > 

paraa  :  str_20;  {  paraaeter,  if  used  > 

froajtring  :  string[351; 

told,praa,qt, 

go,  ok,  found  :  boolean; 

right  :  boolean; 

ready, unlocked  :  boolean; 


{mmmmmmtmtut  Begin  Procedures  mttmmmmtmmmi} 

{ - 

*  6ETSTRIN6;  Gets  a  string  input  froa  keyboard.  = 

=  The  paraaeters  col  and  lne  specify  the  starting  = 

=  coordinates  on  the  full  (1,1,60,25)  screen.  Before3 
3  calling  6etString,  do  a  gotoxy (x,y)  coaaand  to  3 
=  place  the  cursor  within  whatever  window  is  active.5 

- } 

Function  Betstring  (Lens  integer;  ln_str:  Txjtring):  Tx_String; 

Var 

ch  :  char; 
lnest, 
colst, 
col, lne, 
i  i 

colindex  :  integer; 
blankln  :  Tx_String; 
insertaode  :  boolean; 

Begin 

blankln 

for  i  :3  1  to  Len  do 
blankln  :=  blankln  *  ’  '; 
insertaode  :=  true; 
colst  :3  wherex; 
col  :=  colst; 
colindex  :*  1; 
lnest  :=  wherey; 
lne  :=  lnest; 
gotoxy (colst, lnest); 

Mrite(In_str); 
ch  ’  ’; 

while  (Ord(ch)  <>  Enter)  do 
begin 

gotoxy(col,lne); 


mi.  aL  .c rr 


read(kbd,ch); 

if  (Ord(ch)  >  31)  and  (Grd(ch)  <  126)  then 

begin 

if  not  inserteode  then 
begin 

if  colindex  <=  Len  then 
begin 

Del ete ( In  _st  r , col i ndex , 1 ) ; 

Insert  (ch,  in  str, col  index ) ; 
colindex  ;s  succ (col index); 
col  :=  succ (col); 
end; 
end 
else 

if  Length (in_str)  <  Len  then 
begin 

Insert (ch,in_str, col  index); 
colindex  :=  colindex  *  1; 
col  :*  col  +  1; 
end; 

gotoxy (colst, lnest) ; 

Krite(in_str); 

end 

else 

if  (Ord(ch)  =  Escape)  and  (keypressed)  then 
begin 

read(kbd,ch); 
case  Ord(ch)  of 
LArr  :  if  colindex  >  1  then 
begin 

colindex  :*  colindex  -  1; 
col  :=  col  -  1; 
end; 

RArr  s  if  (colindex  <=  Length (in_str>)  then 
begin 

colindex  :=  colindex  ♦  1; 
col  :=  col  *  1; 
end; 

Del  :  begin 

Delete(In_Str,colindex,l); 
gotoxy (colst, lnest); 
nrite(blankln); 
gotoxy (colst, lnest); 
nrite(In_str); 
end; 


Ins  :  inserteode  :=  not  inserteode; 
end; 
end 
else 

if  Ord(ch)  *  Bksp  then 
begin 

if  colindex  >  1  then 
begin 


col index  :=  colindex  -  1; 
col  :*  col  -  1; 

Delete ( In_Str , col i ndex ,  1 ) ; 
gotoxy (col st , lnest ) ; 
wi  te(blankln); 
goto* y (col st, lnest); 
write! In_str) ; 
end; 
end 
else 

it  Ord(ch)  *  escape  then 
if  Length (In_Str)  >  0  then 
begin 
In_str  s= 

gotoxy (col st , 1 nest ) ; 
write (blank  1 n) ; 
col  :=  colst; 
colindex  s=  1; 
end 
else 
begin 

ch  :=  Chr (Enter); 

In_Str  :=  ’ESCAPE’ ; 
end; 
end; 

GetString  :=  In_Str; 

End; 


{tttmutmmttmmummttmmtittmmtttmmmmimttmt) 

{  EXIST;  returns  true  if  this  file  exists  in  the  directory  > 

{ttmtttitmmmmmttttumttttttttmtttmttttmmmtitmmt} 

FUNCTION  exist (this_f ile:  str_M):  BOOLEAN; 

VAR 

fil  :  FILE; 

BE6IN 

Assign(fil,  this  file); 

{♦I-} 

RESET(fil); 

{♦!+) 

exist  :=  (IOResult  *  0); 

CLOSE (fil); 

END; 

{tmmtmtiittmmiitmiimmmttmiittmmmtttmtmtmut) 

{  Procedure  LOCK  ) 

{  This  procedure  is  used  to  renaat  a  file  called  FLAG. FIL  to  a  file  called  ) 
{  TEHP.FU.  This  occurs  uhen  IDF1LE.DAT  is  being  accessed.  In  effect,  it  ) 
{  'locks  out*  IDFILE.DAT  froa  the  other  processes.  If  FLA6.F1L  does  not  } 
{  exist,  signifying  that  IDFILE.DAT  is  already  in  use,  this  procedure  will  ) 
(  go  into  a  loop  until  IDFILE.DAT  is  available  to  be  locked  out.  } 

{mtmtmmttttmtiiimtmttmtmmitmttmmtmimtmmtt} 


Procedure  lock; 
var  go  :  boolean; 
begin 

a*sjgn(teeg<ile,te#pjil)) 
assignlflagfile.flagjil); 
unlocked  true; 

REPEAT 

if  exist (Elaq_f i  1 1  then 
begin 

{»!-) 

renaM(flagfile,te«p_fil); 

{*1+) 

go  ( IQresult  -  0); 
if  go  then 
begin 

dose(teepfile); 
unlocked  ::  false; 
end; 
end 
else 
begin 

delay(SOO); 

end; 

UNTIL  not  unlocked; 
end; 

{uttmiitimtumtmtitmtitttimmtimmittitmtiittmmmm 

{  Procedure  UNLOCK  > 

{  This  procedure  is  used  to  "unlock"  IDFILE.DAT.  It  does  this  by  renaming  } 
{  the  file  TEHP.FIL  to  FLAG.FIL.  It  also  sets  a  flag  called  unlocked  to  } 
{  true.  This  flag  is  used  by  Prxedure  Lock.  > 

{timiiitmtmtimtimmtttmttttiimtKtttmimtmmttttmm} 

Prxedure  unlxk; 
begin 

unlxked  *.*  true; 
renaee (teapf i le, f lag_f i l ) ; 
dose(flagfile); 
end; 


{ttmmttmmttitmttmttttttttmmtittiimmmmtttmtitttt} 
{  ERROR  CHK;  chxks  fx  any  invalid  chars,  x  spaces  in  the  user  note  ) 
{ittmiitttitiitttttiuittmittmustittmttmitttttmtmumtm) 


PROCEDURE  xrx_chk<naee2  :  str_20); 
VAR 


(teep  stxage  fx  receivx’s  mm) 


6. 


naM 


s  5TRIN6C22); 


BE61N 

right  i=  FALSE) 

nut 

t  :aLEN6TH(naee2); 

FOR  i  :*  1  TO  t  Dfl 
naaelil  :*  naee2[i]) 
i  t=  1) 
y  :*  0) 

FOR  i  s*  1  TO  t  DO 
BE6IN 

IF  (naeelil  »  ’  ’>  THEN 
v  :=  v+1; 

END) 

IF  (v  *  0)  THEN 
right  j*  TRUE 

ELSE 

BE6IN 

Mriteln; 

writeln; 

MRITELN ( ’ NO  SPACES  ALLOHED,  PLEASE  REENTER’); 
NRITELN; 

END; 

IF  right  THEN 
BEGIN 
i  :*  1; 

REPEAT 

v  :»  ORD(naeelil); 

IF((v<=122)AND(v>=97))0R(!v>=65)AND(v<*90))  THEN 
i  :*  i  +  I 
ELSE 
BEGIN 
Mriteln; 

Mriteln; 

NRITELN!’ INVALID  CHARACTER,  PLEASE  REENTER’); 
right  :s  FALSE) 

END; 

UNTIL  (i  *  t+1)  OR  NOT  right) 

END; 

END; 


{mtttmmtmtttttmtttmttttttmttmtttttmtmmttmttttt} 
{  CH.CASE;  converts  receiver’s  naee  to  uppercase  before  comparing  ) 
(  it  to  user  naees  in  IDFILE.BAT.  } 

{tmttttmmttmmtttmtttmtttttttutttttmtttmtmmmtt) 


PROCEDURE  ch  case (VAR  naae2  :  str  20); 
VAR 

naee  s  STRINGI201; 

tp  :  INTE6ER; 


naee  := 


i  :«  1; 

tp  :*  LENGTH(naee2) j 


REPEAT 

naaelil  :=  UpCase (naa«2C i ] ) ; 
i  :=  i  +  1; 

UNTIL  i  =  tp  ♦  1; 
naae2  :=  nue; 

END; 

{tmmtmttmtttttmmmmtmmtmtmtmtmttmtttm) 

{  CHKJISER;  checks  to  see  it  nue  entered  as  receiver  is  a  valid  ) 
{  naae.  } 

{mtmtmmmtmtmttttumtttuttmmtmmmtmtmtt} 

PROCEDURE  chk_user(naae2  :  str_20); 


teapjiaae  :  STR1N6I201; 

BEGIN 

found  s*  FALSE; 

Assign (idlist^idfi le  dat); 

RESET(idlist); 
ctr  :=  1; 

while  (ctr  in  II. .nodes])  and  (not  found)  do 
begin 

seek(idlist,ctr-l); 
read(idlist,an_entry); 
with  an_entry  do 
begin 

if  (naae2  *  naae)  then 
begin 

found  :*  true; 
recv_id  :=  id; 
end; 
end; 

ctr  :=  ctr  +  1; 
end; 

CLOSE(idlist); 

IF  NOT  found  then 
begin 

pru  :=  false; 

writeln; 

writeln; 

witelnt’USER  KANE  NOT  FOUND,  TRY  AGAIN’); 
end; 

HRITELN; 

END; 

{tmmttmmmmttim  End  Procedures  tttttmtmtmmtttmtm} 
begin 

textcolor(Mhite); 
assign (user, user_id_str); 

reset (user ) ;  (  get  user’s  id  nuaber  froa  USER. ID  } 

readln  (user ,  send_i  d) ; 


cl ost (user); 

assignlidlist, idfile.dat); 
lock; 

reset (idlist); 
ctr  :=  send.id  -  1; 
seek(idlist,ctr); 

read (idl  1st, an_entry) ;  {  get  user’s  usernue  froa  IDFILE.DAT  } 

uith  an .entry  do 
begin 

froa.naee  s=  naae; 
end; 

dose(idlist); 
unlock; 
qt  ! 3  false; 
prae  false; 
found  :*  false; 
right  :=  false; 
nueprae  s*  paraecount; 

if  nueprae  >  0  then  {  uere  parameters  passed?  1 

begin 

prae  true; 
to_naee  :*  paraastrU); 
right  :=  true; 
end; 

REPEAT 

if  not  prae  then 
begin 
eriteln; 

wite(proeptl);  {  proept  the  user  for  receiver's  usernaee  ) 

to  naee  i*  getstring(20,” ); 
if‘(to_naee  *  ’ESCAPE’)  then 
qt  :*  true 
else 

error_chk(to_naee);  {  check  input  naae  for  correctness  1 

end; 

if  (right)  and  (not  qt)  then 
begin 

ch.case(to.naae);  {  change  naee  to  uppercase  } 
lock; 

chkjiser (to_naee) ;  (  check  to  see  if  valid  usernaee,  and  get  id  nuaber  } 

unlock; 
end; 

UNTIL  right  and  found  or  qt; 
if  not  qt  then 
begin 

ok  :*  false; 

froe.string  i*  froe  ♦  froe_naee; 
assign (teep,teep_f lie); 
reurite(teep); 
uritelntteap, froa .string); 
prae  :*  false; 
the.note 

if  (nueprae  >  1)  then 
begin 


1  urite  header  to  teeporary  file  } 


i  :=  nuapraa; 
for  i  :=  2  to  nuapraa  do 
begin 

paraa  j=  paraastr(i); 
if  (i  *  2)  then 
the_note  :*  paraa 
else 

the_note  ;=  the_note+’  ’+paraa; 
end; 
end; 

REPEAT 

if  not  praa  then 
begin 
nriteln; 

tariteln  (proapt2) ;  {  proapt  user  for  the  aessage  > 

the_note  :=  getstring(65,”); 
if  (the.note  =  ’ESCAPE’!  then 
begin 

qt  t-  true; 
close (teap) ; 
erase(teap); 
end; 
end; 

if  not  qt  then 
begin 

ok  :=  true; 

Nriteln(teap,the_note);  (  place  the  aessage  in  teaporary  file  } 

ariteln; 

tariteln; 

writeln (’ ttttttt  NESSA6E  KINS  SENT  ’); 
close (teap); 
delay (100); 
end 
else 

ok  :=  true; 

UNTIL  ok; 
if  not  qt  then 
begin 

STR(recv_id,userno); 

recvfile  :  =  user_filetable[recv_id]+u*erx+u§erno+note_ext; 
ready  :*  false; 
told  :  =  false; 
i  :»  send  id  t  100; 

REPEAT 

delay(i); 

if  exist (recvfile)  then  {  is  receiver  already  reading  another  aessage?  ) 
begin 

if  not  told  then 
begin 

told  i*  true; 
nriteln; 

HritelnCtlltm  PAUSINS,  ANOTHER  HESSA6E  IS  AHEAD  OF  TOURS’); 


delay (500); 
end 
else 
begin 

if  not  exist(recvfile)  then 
begin 

assign(notefile,recvfile); 

{*1-} 

reurite(notefile) ; 

{*!♦} 

go  s-  (lOresult  -  0); 
if  go  then 
begin 

reset (teap) ; 
ready  j=  true; 
while  not  eof(teep)  do 
begin 

readln(teap,a_line); 

writeln(notefile,a_line) 

end; 

dose(notefile); 
close(teep); 
erase (teap); 
end; 
end; 
end; 

i  :=  i  +  100; 

UNTIL  ready; 
writeln; 

HritelnCttttttt  MESSAGE  RECEIVED  ’); 


APPENDIX  E 


PROGRAM  LISTING 


BLDFILE.PAS 


•wwV*** 


{tttmtmmmtttttmtmttttmttmumtttmmtmttmmmmt} 
{I  BLDFILE.PAS  1} 

{(  I) 

(I  THIS  PR06RAM  IS  USED  BY  EINIT.BAT  WHEN  INITIALIZING  THE  EMAIL  SYSTEM.  1} 
(I  IT  CREATES  A  RANDOM  ACCESS  FILE  CALLED  IDFILE.DAT  WITH  THE  NUMBER  OF  I) 
(I  ENTRIES  CORRESPONDING  TO  THE  VALUE  OF  THE  CONSTANT  NODES.  EACH  ENTRY  (} 
(I  IS  INITIALIZED  NITH  BLANKS  BUT  NILL  EVENTUALLY  CONTAIN  EACH  PERSON’S  I) 

(I  USERNAME /NUMBER  TO  BE  USED  AS  A  MAPPING  WHEN  SENDIN6  AND  RECEIVING  t) 
{«  MAIL.  THE  CREATED  FILE  IS  LEFT  IN  THE  PUBLIC  DIRECTORY  AND  NILL  BE  I) 
{»  ACCESSED  BY  EACH  USER  MHEN  LOGGING  ON  AND  UTILIZING  THE  EMAIL  SYSTEM,  t} 
U  I) 

ctmmmttttmtttttmmmummttumumttmmtumutmtt} 

Proqraa  Bid! lie; 


CONST 

nodes  -  lb; 


(  nuaber  of  stations  on  the  network  ) 


TYPE 

entryjiaae  s  string[201; 
entry  =  record 

naae  ;  entryjiaae; 
id  ;  integer; 
end; 


{  randoa  access  file  > 


VAR 

idl ist  :  file  of  entry; 

an  entry  :  entry; 

i  ;  integer; 


begin 

assign (idl ist, ’idfile.dat’ I; 
reariteUdlist); 
with  an  entry  do 
begin 
naae  :=>  ’ 

for  i  :s  1  to  nodes  do 
begin 

id  :=  i; 

nrite(idlist,an_entry); 

end; 

end; 

dose(idlist); 

end. 


<  initialize  idl's  with  1  through  nodes  > 
{  initialize  naaes  with  blanks  > 


i.<  f t,t  < _ t  -,j  m  a  * . t  • 


i  m  m  >_»  M  ; 


■i  ».•  .*  .1  *.i  ’.t 


APPENDIX  F 


PROGRAM  LISTING 


LOCK. PAS 


{tutmtmmttttmmtmtttMimmmtmttmitmmtmmmittt} 

{  This  prograa  is  used  to  renaae  a  file  called  "FLA6.FIL"  to  a  file  called  } 
{  TEHP.FIl.  This  occurs  uhen  IDFILE.DAT  is  being  accessed.  In  effect,  it  } 
{  "locks  out"  IDFILE.DAT  fro*  the  other  processes.  If  FLA6.FIL  does  not  > 
{  exist,  signifying  that  IDFILE.DAT  is  already  in  use,  this  prograe  Hill  } 
{  go  into  a  loop  until  IDFILE.DAT  is  available  to  be  locked  out.  > 

{tmttmtttmutitmtmumumtmtmtmtmmttmmummti} 

Prograe  Lock; 

type 

str_66  =  stringt661; 
const 

idfilejat  :  str_66  =  ’IDFILE.DAT’; 

flagjil  :  str_66  =  ’FLA6.FIL’; 

teepjil  :  str_66  =  ’ TEMP. FIL’ ; 

var  go, 

unlocked  :  boolean; 

teepfile, 

flagfile  :  text; 

i  :  integer; 


{mttttmmmimtttitutmtttttmutmumimtmttmmmmm 

t  EXIST;  RETURNS  TRUE  IF  this  file  EXISTS  IN  THE  DIRECTORY  I 

mtmtmmmtitumtututttmmttmmtmmimtmmimittttt} 

FUNCTION  exist (this  file:  str  66):  BOOLEAN; 

VAR 

fil  :  FILE; 

BE6IN 

Assign(fil,  this  file); 

{«!-} 

RESET(fil); 

<*I+) 

exist  :=  (IOResult  =  0); 

CLOSE (fil); 

END; 

begin 

assign(teapfile,teap_fil); 
assign (flagfile,flag_fil); 
unlocked  :*  true; 
i  :=  1; 

REPEAT 

if  exist(flagjil)  then 
begin 

(tl-l  (coapiler  directive,  turnoff  run  tiee  check) 

renaae ( f 1 agf i 1 e, teep_f i 1 ) ; 

(*1+)  (coapiler  directive,  turnon  run  tiae  check  } 

go  :  =  (IOresult  *  0); 
if  go  then 


{ttmmtmtmmmmmttmmmtmttmtmmttutmmmtmt} 

{  This  prograa  is  used  to  "unlock*  IDFILE.DAT.  It  does  this  by  renaaing  1 
I  the  Tile  TEMP. Fit  to  FLA6.FIL.  It  also  sets  a  Flag  called  unlocked  to  1 
{  true.  This  flag  is  used  by  prograa  Lock.  ) 

{umtmmtttmmmmmttmtmtutttmtmtmmtmmmmu} 

Prograa  Unlock; 


const 

idfile_dat 

flagjil 

teap_fil 


stringI6&]  =  ’IDFILE.DAT’; 
string£661  =  ’FLA6.FIL’; 
stringCbbl  =  ’TENP.FIL’; 


teapfile, 

flagfile 


begin 

assignt-f  lag-file,  flagjil); 
assign (teapf i le, tesp Jill; 
renaae(teapfile,  flagjil); 
close (flagfile) ; 


i 

*  j;, 

IV 

IV 

S 

s 


{itttmttimmitmtutitmmtmmmitttmtmmmmium 

I  BLDRS6.INC  I 

t  I 

*  This  include  Tile  allows  a  user  to  send  a  aessage  to  a  receiver  t 
t  or  broadcast  to  everybody.  Various  procedures  check  the  validity  I 
$  of  the  input  user  naae  to  ensure  it  is  in  the  correct  foreat  and  t 
t  that  it  is  a  valid  naae  in  idfile.dat.  i 

I  t 

tumnumttmmnnummmtMttttttttuttumtmnutm) 


PROCEDURE  Bld_asg; 


aessagea  -  ’Do  you  aant  to  see  the  usernaae  list,  (Y/M) ? 

aessagel  -  ’Receiver's  usernaae?  Ct*  to  broadcast/return  to  exit).’; 

aessage2  -  ’Please  enter  your  aessage  beloa.’; 

Kindi  -  1; 

TYPE 

St  .20  =  STRIN6I201; 


VAR 

i,t,v 

right,  found,  ok 
listval 


:  INTEGER; 
:  BOOLEAN; 
:  CHAR; 


(  teaporary  variables  1 


{ititiutmitittmttttiitmtttttttittttmmttmmmmttmt! 

I  ERROR  CHK;  CHECKS  FOR  ANY  INVALID  SPACES  IN  THE  USER  NAHE  I 

tmtmuumumttmmmtimiummmtmiiiimtmtttm} 

PROCEDURE  error_chk(naae2  :  st_20); 


(teap  storage  for  receiver’s  naae) 


VAR 

naae  :  STRIN6I221; 
BE6IN 

right  :=  FALSE; 


t  :=LEN6TH(naae2); 

FOR  i  :=  1  TO  t  DO 
naaelil  i*  naae2Ci ] ; 
i  :=  1; 
v  0; 

FOR  i  :=  1  TO  t  DO 
BEGIN 

IF  (naaetil  s  ’  ’)  THEN 
v  v+1; 

END; 

IF  (v  =  0)  THEN 
right  :=  TRUE 

ELSE 

BEGIN 

NR1TELNCN0  SPACES  ALLONED,  PLEASE  REENTER’); 


r.  »•  /.  /.  v.  a  v 


NRITELN; 

END; 

IF  right  THEN 
BEGIN 
i  ss  1; 

REPEAT 

v  :=  ORDInaaelil); 

IF((v<-122)AND(v>=97))0R((v)=65)AND(v<=90))QR(¥=«2)  THEN 
i  :=  i  +  1 
ELSE 
BEGIN 

NRITELNP INVALID  CHARACTER,  PLEASE  REENTER’); 
right  :=  FALSE; 

END; 

UNTIL  (l  *  t+1)  OR  NOT  right; 

END; 


{mitttttttttittttttiimmttituiutttttitmtttmmmitmum 

»  CH  CASE;  CONVERTS  RECEIVER'S  NAME  TO  UPPERCASE  BEFORE  COMPARING  I 
I  IT  TO  USERNAMES  IN  IDFILE.DAT  t 

mmtummmmmtmttmtumttmtttttmtmttmitmtm) 

PROCEDURE  ch_case(VAR  naae2  :  st_20); 


VAR 

naae 

tp 


:  STRIN6I20I; 
:  INTEGER; 


BEGIN 
naae  :=  ’ 
i  :=  1; 

tp  LENGTH (naae2); 

REPEAT 

naaeli]  UpCase(naae2Iil); 
i  :=  i  +  1; 

UNTIL  i  =  tp  +  1; 
naae2  :=  naae; 

END; 


{mttmtmttttttmtmmtttmttmmtttmmtttmmmtmt 

I  CHK  USER;  CHECKS  TO  SEE  IF  NAME  ENTERED  AS  RECEIVER  IS  A  VALID  I 

t  NAME  I 

mttmmtmmmmmmumtmmnmmmmmumtmt) 

PROCEDURE  chk_user(naae2  :  st_20); 


VAR 


teap_naae  :  STRINGC203; 


BEGIN 

Found  s*  FALSE; 

Assign  (idl  ist,  id-Fi  le_dat) ; 
IF  (naae2ClI  =  )  THEN 

6E6IN 

IF  (naae2(21  «  '  ’»  THEN 


2. 


found  :*  TRUE; 
broadcast  :=TRU£; 

END; 

END; 

lock; 

RESET(idlist); 
ctr  :*  1; 

while  (ctr  in  U. .nodes!)  and  (not  found!  do 
begin 

seek (idl ist  ,ctr-l ) ; 
read(idlist,an_entry); 
with  an_entry  do 
begin 

if  (naae2  -  naae)  then 
begin 

found  i=  true; 
recvjd  !=  id; 
end; 
end; 

ctr  :*  ctr  +  1; 
end; 

CLOSE (1 dl ist ) ; 
unlock; 

IF  NOT  found  THEN 

NRITELNCUSER  NAME  NOT  FOUND,  TRY  AGAIN'); 

NRITELN; 

END; 

mtmmmmitmmtmmmtmtmmttttttmttmttmtmt 

«  6ETJIHE;  GETS  THE  HOURS  AND  HINUTES  FROH  THE  USER  TERNINAL  I 

tmttutmmttttttmtmttttttmmmmtmtmmttmtmttt} 

PROCEDURE  get  tuelVAR  hour,  ein  :  INTEGER); 

TYPE 

regpack  *  RECORD 

ax ,bx , cx , dx , bp , si , di , ds, es, f 1 ags:  INTEGER; 

END; 

VAR 

regs  :  regpack; 

BEGIN 

NITH  regs  DO 
BEGIN 

ax  :*  $2c00; 

HSDos(regs); 
hour  :=  Hi(cx); 

■in  i=  Lo(cx); 

END; 

END; 

{ttmtumttmtttttmmmmttmmtttitittttmmimtfttm 
t  HOUR.CALC;  USED  IN  CALCULATING  THE  HOUR  IF  THERE  IS  OVERLAP  t 
t  BETWEEN  A  SESSION  AND  THE  24TH  HOW  I 

mtmtmmmttttmtmimmtmmmtitttttttmtottmtm} 


PROCEDURE  hour  calc; 

BESIM 

IF(hour2  >=  1)  THEM 
IF(ainl+ain2  >=  60)  THEN 
hour : =hour2* 1 - ( 24-hour 1 ) 

ELSE 

hour : -hour 2- ( 24-hour  1 ) 

ELSE 

hour:=l; 

IF  (hour=0)  THEN  hour: =24; 

END; 

{tttimititmmmttmttmtuimutttmmtmmiitmtttmt 
t  NAIN  I 

ttiimmttttitittmtittmttustttttuttmsttttmtmtmmtm) 

BE6IN 

putx ( i , 1 , pic ) ; 

cancel ed_aessage  :=  FALSE; 

right  :=  FALSE; 

Found  :=  FALSE; 
ok  :=  FALSE; 
if  (not  reply)  then 
begin 

■kwin (1 , 1,59,6, blue, 1 iqhtgray, 1 ) ; 
clrscr; 

{immtftmttiititttftttttmtimtttmtttmttmmmmmut 

»  REPEAT  UNTIL  NAHE  IS  CORRECT  AND  VALID  I 

ttmttmtxtimtmtmtttittittmttttittmtmmtitttttitttttt} 

REPEAT 

{tumtummmumuututttmttmmmtmtmutttmimt 
I  REPEAT  UNTIL  VALID  RESPONSE  I 

mttmtmuttmmmmtmmtttmttmttttmittttmuttmt) 

REPEAT 

NRITE(aessagea);  (see  the  user  naae  list?) 

READ(Kbd, listval ) ; 
i  :=  ord(listval); 
if  (i  =  27)  then 
begin 

Found  :=  true; 
skip  :*  true; 
right  :=  true; 
ok  :=  true; 
end 
else 
begin 
MRITELN; 

IF  (listval  =  ’V)  OR  (listval  =  ’y’!  THEN  IiF  yes  display  it) 

BE6IN 

ok  :=  true; 

assign (idlist,idFile_dat); 
cursor on (False); 

teapstr  :=  string_reader (43, 10, 64, 21, blue, white, red, white, l,idFile_dat) 


cursor on (true); 

END 

ELSE 

BEGIN 

IF  (listval  =  ’N’>  OR  (listval  =  ’n’)  THEN 
BEGIN 

ok  TRUE; 

teepstr  :=  ’ESCAPE’;  (set  user  eenu  value  to  escape) 

END 

ELSE 

BEGIN 

ClrScr; 

NRITELNt’ INVALID  RESPONSE,  TRY  A6AIN  PLEASE.’); 
ok  :=  FALSE; 

END; 

END; 

end; 

UNTIL  ok; 

it  (not  skip)  then 
begin 

t o_na«e  :=’  ’; 

ClrScr; 

it  (teepstr  =  ’ESCAPE’)  then 
begin 

NRITELN(eessagel); 

READLN(to_naie);  (enter  receiver’s  usernaee) 
t  :*  length (to_na«e); 
if  (t  *  0)  then 
begin 

right  :*  true; 
found  i-  true; 
skip  :=  true; 
end; 

if  (not  skip)  then 
begin 

error_chk(to_naee>;  (check  input  naee  for  invalid  chars/spaces) 
IF  right  THEN 


BEGIN 

ch_case(to_naee);  (  if  f 

chk  user(to_naee);  (  is  : 

END;’ 

end;  (end  if  not  skip) 
end  (end  if  teepstr) 
else 
begin 

right  s*  true; 
found  :  =  true; 
t  length (teepstr); 
if  (t  <  20)  then 
begin 

if  (teepstr  =  ’BROADCAST’)  then 
begin 

to_naee  :r  ’> 
broadcast  :=  true; 


{  if  no  errors,  change  to  uppercase) 
{  is  it  a  valid  usernaee?) 


for  l  :=  I  to  t  do 
tojiaeetil  :=  teepstrlil; 
end; 
end 
else 

to_naee  :=  teepstr; 
end; 

end;  {  end  skip  if  1 
UNTIL  right  AND  found; 
riMin; 

end;  (  end  IF  not  reply  1 

{tmttmtitttmtttttttttmtmtmtmimtmtmmtuttttttm 

I  THIS  SECTION  OF  CODE  CALCULATES  A  TIHE-STAW  AND  CALLS  THE  I 

I  PROCEDURE  THAT  NILL  BRING  UP  A  SCREEN  FOR  THE  SENDER  TO  TYPE  IN  I 
»  HIS  MESSAGE  t 

tmtmtmmmtmtmtmttttmtttttmmtmtmttttitttitttt} 

if  (not  skip)  and  (not  forward)  then 
begin 

Textbackground(blue); 

TextColor (white  ♦  blink); 

MRITELN(eessage2); 

froe_and_froe_naee  s=  froe  +  froejiaee; 
to_and_to_naee  :=  to_u  +  tojiaee; 
tioestaep; 

*1 : =2;  yl:=6;  x2:=79;  y2:=18;  batk:=blue;  fore :*yel low; 

fback:=cyan;  f f ore: =yel low;  edt_file:=in_fil_str; 

bor : *2;  outpt:=l; 

editor; 

drScr; 

end;  (end  if) 

froe_and_froe_naee  :*  froe  +  froejiaee; 
to_and_to_naee  :*  to_u  ♦  tojiaee; 

END;  {  end  procedure  1 


Vw%  A 


LISTING 


of 

:t  .  inc 


(ttmtmmmttmmmmmtmmmmmumtmtmmmmtttt 

I  GET. INC  (PREVIOUSLY  READFILE. INC)  t 

I  t 

t  This  include  file  can  be  called  into  any  window.  It  creates  t 

t  a  window  of  the  specified  color  and  location.  The  window  is  t 

t  reaoved  when  you  exit.  This  procedure  is  used  to  view,  save,  t 

t  and  scroll  through  aessages  that  have  been  sent  by  soae  user.  t 

t  t 

t  The  following  paraaeters  aust  be  set  up  before  the  procedure  call:  t 

I  t 

t  xl,  -  left  coluan  of  window  (  >1  )  t 

I  yl,  -  top  line  of  window  (  >1  )  t 

t  x2,  -  right  coluan  of  window  (  <B0>  t 

t  y2,  -  bottoa  line  of  window  (  <25  )  t 

t  back,  -  background  color  of  window  t 

t  fore,  -  color  of  text  in  window  t 

I  fback,  -  bgd  color  of  border  (-1  =  no  border)  t 

*  ffore  :  integer;  -  dr  of  line  in  border  I 

I  edt_f ile:  FilStr;  -  naae  of  file  to  be  edited  t 

I  Bor  :  integer);  -  lines  in  border  (0,1, or  2)  » 

mmmtmmitmmmntmtmmmmmmmttmimummm) 

TYPE 

filstr  =  STRINGI661;  (file  string  variable) 

{umutmtmmtiitmtimmmmmmmmmttmttmmmittt 
»  NINDON  READER;  THIS  IS  THE  RAIN  PROCEDURE.  ALL  THE  EDITING  FUNCTIONS  t 

I  ARE  INCLUDED  IN  THE  PROCEDURE  I 

tmtttmutittttmtmmimimittitmttmmmttttmmiitmmt} 

PROCEDURE  window  reader; 

{mtnnntnutnnntnnummnnmmuumtnnnmnmmtnt 

I  NINDQN_CORNERS;  DEFINES  CORNERS  OF  MESSAGE  DISPLAY  NINDON  I 

ttttmmttttttttmmtmtmtmtmtmttiitttmmmmttmmmt} 

PROCEDURE  window_corners(VAR  xl,yl,x2,y2:  INTE6ER); 

VAR 

upper_left_x  :  Byte  Absolute  DSeg: *0004; 

upper_left_y  :  Byte  Absolute  DSeg:$00Q5; 

lower _right_x  :  Byte  Absolute  CSegjtlia; 

lower _right_y  :  Byte  Absolute  CSegtllbb; 

BEGIN 

xl  :=  upper_left_x  +  1; 
yl  :=  upper_left_y; 
x2  :=  lower _right_x; 
y2  :=  lower  right  y; 

END; 

{mmmtttmttmmtmtttmtittftmttttttttmttMmttmttmtttt 
I  PRE_P0PUP_R0UTIN£S;  PREPARE  THE  POPUP  NINDONS  I 

tuttttmtttumtumittmtttiutittmtttutmmttmummimttt} 


PROCEDURE  pre_popup .routines; 


pq.and, 

stk, 

posnua, 

hip:  1NTE6ER; 

st  :  STRINGC20J; 


BEGIN 

pgjind  :=  xl  ♦  TRUNC(l(x2  -  xl)  -  151/21  +  1; 
hip  :=  (x2  -  (15  ♦  xl)); 

fraaelxl-l,yl-l,x2+l,y2+l,(fbacktl6)+ffore,bor); 
UindoMlxl tyl , x2,y2) ; 

Tex tBack&round (back); 

ClrScr; 

fastarite(xl+30,yl-2,48,’  VIEW  MESSAGES  ’); 


fastarite(23, 19,48,’ 

F2  - 

VIEN  NEXT  WAITING  MESSAGE 

fastarite(23,20,48,’ 

F3  - 

REPLY  TO  A  MESSAGE 

’>5 

fastarite(23,21,48,’ 

F4  - 

FORWARD  A  MESSAGE 

f astarite (23,22,48,’ 

F5  - 

VIEN  SAVED  MESSAGES 

fastarite(23,23,48,’ 

F6  - 

DELETE  SAVED  MESSA6E 

’>1 

fastarite(23,24,48,’ 

ESC  - 

EXIT  TO  MAIN  MENU 

Nindoa(xl+l,yl,x2,y2); 

END; 


{tutttmummmttmttmttttuttmtmtmumttttmtttmtmmt 

t  INITIALIZE;  INITIALIZES  KEY  VARIABLES  IN  PREPARATION  FOR  READING  AND  t 
I  DISPLAYING  MESSAGES  t 

itttmtttttmmttmtmmtttttmmtmtmmmttmtmmtmtmt} 

PROCEDURE  initialize; 


BEGIN 


string.length 

■ax .lines 

right.aargin 

bottoa.ro* 

coluan 

roa 

nodejn 

colour 


:=  (x2  -  xl)  -  1; 

:=  (y2  -  yl  ♦  1); 

:s  string.length  ♦  1; 

:=  aax.lines; 

:=  left.aargin;  (current  y  position  for  6GT0XY) 
i=  top.roa;  (current  x  position  for  GOTOKY) 

:3  1;  (beginning  page.buffer  array  subscript  value. 
:=  (backllfcl+fore; 


) 


utmtmmtmtmimmttmttmtttmtumimttitmmmtmmt 
I  CUR  UP;  MOVES  CURSOR  UP  ONE  LINE.  t 

tttuimmtmtttttmmmmtttttmmtmtttmmmtttmmtttm} 

PROCEDURE  cur .up; 


BEGIN  (user  wants  to  aove  up  a  line) 
IF  (nodejn  -  roa)  )  0  THEN 


; 

* 

S 

u 

? 


4* 


r 

S 


BEGIN 

nodejn  :=  nodejn  -  row; 
curnd  :=  cur_node (nodejn); 
row  :=  1; 

GotoXY ( 1 ,row) ; 

InsLine; 

Got oX Y(l, row); 

NRITE(curndA.txt) 

END 

END; 

{tmmmtmmmtmmmmmmtmmmmmmmmmtttmt 

I  CURJONN;  MOVES  CURSOR  DOWN  ONE  LINE  t 

tmmttmmmimmitttmtmumttmmttmtmtmttmtmtm) 

PROCEDURE  cur_down; 

VAR 

nld  :  INTE6ER; 

BEGIN 

IF  node  In  <=  lstA. LENGTH  THEN 
BEGIN 

nld  :=  nodejn  +  (botto«_row  -  row)  +  1; 

IF  nld  <=  lst\ LENGTH  THEN 
BEGIN 

nodejn  :=  nld; 

row  :=  bottoarow; 

curnd  :=  cur  node  (nodejn); 

GotoXYU.l);’ 

Del  Line; 

GotoX Y ( 1 , botto«_row) ; 

NRITE(curnd\txt) 

END 

END 

END; 


{mtmmmmmmmmmwmmmmtmtmumtummmm 


t  CHD_PR0CESS0R_2;  KEYBOARD  INPUT  BUFFER  READER  I 

ttmmittmmttttummutmmmtmtmumttumumtmttm) 

PROCEDURE  cadjprocessor_2; 

VAR 

ord_char  :  INTEGER;  (used  to  store  nuaeric  value  assigned  to  keybrd  entry) 
nextjkey  :  BOOLEAN;  (flag  set  to  true  when  valid  function  key  is  entered) 

BEGIN 

nextjkey  :s  FALSE; 

REPEAT  (until  Nextjkey) 

READ(Kbd,ch);  {standard  keyboard  does  not  echo  in  Turbo.  ) 

ord_cl.ar  :=  ORD(ch);  {get  the  ordinal  value  of  the  character  read) 

IF  ?ord_char  s  escape)  THEN 
IF  NOT  KeyPressed  THEN 
BEGIN 

nextjkey  :=  TRUE; 

J. 


\ 


vchoice 

END 


:=  ord_char; 


BE6IN  (ord_char  =  Escape;  look  for  function  key) 
READ (Kbd , ch) ; 
ord_char  :=  ORD(ch); 

CASE  ord  char  OF 


up  :  cur_up; 

down  :  cur_down; 

pgdn  :  pagejlown;  {di spl ay_next jage) 

pgup  :  page_up;  (displayjreviousjage) 

hoae  :  go_to_top; 

endkey  :  go  to_end; 

f2..f6  :  BE6IN~ 

nextjkey  :=  TRUE; 
vchoice  :=  ord_char; 

END; 

END; 

END;  (if  escape  character) 

6otoXY(coluan,roa); 

UNTIL  nextjkey;  (end  of  the  repeat  stateeent) 

END; 

{mmumtmtmmmmmmutmmmmmmtmmtmnmm 

t  NUN  OF  MSGS;  DETERMINES  HON  MANY  MESSA6ES  ARE  IN  THE  NEN  OR  SAVED  t 

I  QUEUE  AND  SPECIFIES  THE  POSITION  OPEN  FOR  THE  NEXT  MSB  I 

*  TO  BE  ADDED  TO  THE  QUEUE  t 

mtmtmmmmmmtmtmtmmtmttmmmmtmmmmttt) 

PROCEDURE  nue_of_«sgs(sub_str  :  str_66  ;  extension  :  u_exten); 


te«p_nue  :  u_exten; 
ok  "  :  BOOLEAN; 
i_nue  J  INTE6ER; 


(string  variable  to  concatenate  file  nuaber) 
(flag  set  to  false  alien  open  position  is  found) 
(counter  for  nuaber  of  aessages) 


BE6IN 

ijiua  :=  0; 
ok  :=  TRUE; 

HHILE  ok  DO 
BEGIN 

i_nua  :=  i_nua  +  l; 

STR  (i_nua,  teap_nua); 

getfile  :=  sub_str  +  extension  +  teap_nue; 

IF  NOT  exist (getfile)  THEN 
BEGIN 

ok  :=  FALSE; 

IF  extension  =  \N’  THEN  n_add_pos  :=  i_nua 
ELSE  o_add  _pos  :s  i_nua; 

END; 


J'iWWHK'W! 


{tmitmutummttttmtmtmtimttmummtttumtmmmm 

I  REORDER  MSG;  INVOKED  AFTER  A  MESSAGE  HAS  BEEN  DELETED.  IT  REORDERS  t 
I  THE  QUEUE  MAINTAINING  A  FIFO  ORDER  I.E.  SHIFTS  MESSAGES  I 

I  DOWN  TO  FILL  AN  OPEN  POSITION  CREATED  BY  DELETE  I 

tttitmttttmittttittttmttttttuimuimimtmmmmmtitmm} 

PROCEDURE  reorder  «sg  (subjtr  :  str  66  ;  extension  :  u_exten); 


str _66;  (File  string  variable} 
ujxten;  (string  variable  to  concatenate  File  nu«ber) 
(these  integer  variables  are  nuneric  values) 
(used  as  pointers  in  eessage  queues) 


tetpjil  :  str_66;  (Fil 

te«p_nu«  :  ujxten;  (str 

curjos,  (the 

curjiold,  (usi 

add  jos, 

add_hold, 

posjhiFts, 

■ovjos  :  INTEGER; 

BEGIN 

IF  extension  =  \N’  THEN 
BEGIN 

cur  jos  :=  n_curjos; 
add  jos  :=  njddjos; 
END 


cur  jos  :=  o_curjos; 
add  jos  i=  o_addjos; 

END; 

posjhiFts  1=  add  jos  -  cur  jos  -  1; 

IF  add  jos  =  1  THEN  cur  jos  :=  0 
ELSE 

BEGIN 

IF  pos  shifts  =  0  THEN  add  jos 
ELSE 

BEGIN 

cur  hold  :=  cur  jos; 


:=  cur  jos 


curjiold  :=  cur  jos; 

NHILE  pos  shiFts  <>  0  DO 
BE6IN 

•ovjos  i=  cur  jos  ♦  1; 

STR  (»ovjos,  te«p_nui); 

teipjil  :=  subjtr  ♦  extension  ♦  te«pjut; 

Assign  (oldjil,  te»pjil); 

STR  (cur  jos,  te«p ju») ; 

te»p  Fil  :=  subjtr  +  extension  +  teipjut; 

Rena«e  (oldjil,  te«pjil); 

curjos  i=  curjos  ♦  1; 

addjiold  :=  curjos; 

posjhiFts  :=  posjhiFts  -  1; 

END;  (Nhile  PosjhiFts  <>  0  ) 
curjos  :=  cur  hold; 
add  jos  ::  add  hold; 

END; 

END; 

IF  extension  =  \N’  THEN 


BEGIN 

n_cur  jos  :=  curjos; 
njddjos  :=  addjos; 

EN0~ 

ELSE 

BEGIN 

o_cur jos  :=  curjos; 
ojdd  jos  :=  add  jos; 

END; 

END; 

{ttummuttmmmmmmmmtmtttmmmtttttttttmtttmtt 

t  REFRESHER;  REINITIALIZES  VARIABLES,  READS  DESIRED  MESSAGE  FILE,  I 

t  DISPLAYS  THE  MESSAGE  AND  INVOKES  KEYBOARD  BUFFER  READER  ( 

t  UNTIL  A  KEY  IS  PRESSED  I 

numuuntmtmtmmtmmtmntmmmtntmmtmmmutt) 

PROCEDURE  refresher  (saae_fil  :  str_6G); 

BEGIN 

HARK(heaptop);  (save  top  of  heap) 

initialize; 

read_input_f lie  (saae_fil); 

IF  first _tiae  THEN 
BEGIN 

pre  jopupjoutines; 
first  tine  FALSE; 

END; 

display_text  (1); 
cadjrocessor_2; 

RELEASE(heaptop);  (now  put  it  back! 

END; 

{mmttmtttttmmttmmmmtmmtmttmmmmmtttmmt 

I  FUNC  ENTRY;  CENTRAL  PROCESSING  PROCEDURE  FOR  THE  GET  INCLUDE  FILE.  t 
I  DIRECTS  PROCESSING  BASE  ON  FUNCTION  KEY  INPUTS  t 

ummmmmmtmumttmmmumttmutmtmuttuimtmi) 

PROCEDURE  func_entry; 

VAR 

i* 


scount,  acount 

:  INTEGER;  (both  used  for  aessage  nuaber  display) 

user_filetable 

:  ARRAY Cl.. nodes)  OF  str_66; 

done, 

(used  to  terainate  function  key  processor) 

nojessages 

:  BOOLEAN;  (indicates  whether  there  are  any  new  asgs) 

getfile, 

sub_fil_str 

:  str_66;  (file  string  variable) 

unua_ext, 

(user  nuaber  string  variable) 

fnuajxt 

:  u_exten;  (file  nuaber  string  variable) 

alright,  did 

:  boolean; 

tfile 

:  text; 

ajine 

:  stringCBOI; 

n_cur_pos  :*  1; 
o_cur  jos  :=  0; 

STR  (send_id,  unua_ext); 
sub_fil_str  :=  usr_path  +  unua_ext; 
done  :*  FALSE; 

TextBackGround(black) ; 

ClrScr; 

vchoice  :=  f 2; 
did  :  =  false; 

REPEAT 

fastNrite(0,3,0,’ 

CASE  vchoice  OF 


{ttmmmtttmtitttmtttimtttmttmutttmtmmmmmmmt 

*  F2;  INVOKES  THE  PROCESS  NHICH  ATTEMPTS  TO  LOCATE  AND  DISPLAY  THE  NEXT  I 
I  SEQUENTIAL  NEN  NESSA6E  ON  FILE  t 

uimmmtmttmttmtmmmtmtmtmtmtttttttmtttmttttm} 

f 2:  BEGIN 

nua_of_asgs  (sub_fil_str,  new_ext) ; 

IF  n  addjios  =  1  THEN 
BEGIN 

getfile  i=  subjil_str  ♦  dua_ext; 

•count  :*  1; 
if  (not  did)  then 

fastNrite(0,3,15,’  There  are  no  NAITING  aessages. 
else 

fastwite(0,3,15,’  There  are  no  ao re  NAITING  aessages. 
no  iessages  s*  TRUE; 
refresher(getfile); 
did  :  =  false; 

END 

ELSE 

BE6IN 

did  :=  true; 
no_aessages  s=  FALSE; 

STR  (n_cur_pos,  fnua_ext>; 

getfile  :=  sub  fil_str  ♦  nea  ext  +  fnua  ext; 

fastwite(0,3,i5,’"  MESSAGE"!’ ); 

Nindoull, 1,80,25); 

TextColor(uhite); 

TextBackGround(black); 

GotoXY (13,4) ; 
if  (acount  =  1)  then 
NRITE(acount) 
else 

NRITE(acount,’  (previous  aessage  autoaaticatly  saved)’); 
TextColor (yellow) ; 

TextBackGraund(blue); 

Nindoa(xl+l,yl,x2,y2); 

•count  Kount  +  1; 


(previous  aessage  saved)’) 


refresher  (getfile); 

•ark(heaptop); 

initialize; 

readjnputjile  (getfile); 
release (heaptop ) ; 

nu«_of_«sgs  (sub_f il_str,  ne*_ext); 
nu»_of_«sgs  (sub_fil_str,  old_ext) ; 

Assign  (old_fil,  getfile); 

STR  (o_add_pos,  fnu«_ext); 

getfile  :=  sub_f il_str  +  old_ext  +  fnu«_ext; 

Renaae  (old_fil,  getfile); 
reorder _«sg  (sub_fil_str,  n«_ext); 
o_add jios  :=  o  add _pos  +  1; 

END; 

if  nojessages  then 
begin 
REPEAT 

IF  (vchoice  =  f6)or (vchoice  =  f4)or(vchoice  =  fJ)  THEN 
BEGIN 

fastitrite(0,3, 15, '  Invalid  selection  sequence,  try  again. 

c«d_processor_2; 

fast«rite(0,3,0,’ 

del  ay (200); 

END; 

UNTIL  (vchoiceOfi)  and  (vchoi ce<>f 3)  and  (vchoiceOff); 
end 
else 
begin 
REPEAT 

if  (vchoice  =  f6)  then 
begin 

f ast««rite (0, 3, 15, ’  Invalid  selection  sequence,  try  again. 
ced_processor_2; 
fastwite(0,3,0,’ 
del ay (200); 
end; 

UNTIL  vchoice  <>  f6; 
end; 


(tmtmmtmtmtmtmmttmmtttmmmtttmummmtttmt 

t  F3;  INVOKES  THE  PROCESS  NHICH  LETS  THE  USER  REPLY  TO  A  SPECIFIC  I 
t  HAIL  MESSAGE.  t 

ttmtmmtttmimttmmtmtmmmtmttmmmmmmmmt} 

f 3:  BEGIN 

assign (junk, getfile); 
reset (junk); 
readln(junk,n_line); 
ctr  :=  1; 

tojiaee  :=  ’  ’; 

for  i  :=  8  to  27  do 
begin 

tojiaeetctrl  :*  njinetil; 
ctr  :=  ctr  ♦  1; 


end; 

dose(junk); 
done  ::  true; 
reply  :=  true; 

END; 

{tmtmtttmttmmtmimmmmtmmmtmtmutttttmtimtt 

t  F4;  INVOKES  THE  PROCESS  WHICH  PERMITS  THE  USER  TO  FORWARD  A  KAIL  t 
t  MESSAGE  TO  ANOTHER  USER.  ! 

tmtmtmmmmmmmtmtmummmtmmtttmtttttmmtt} 

M:  BEGIN 

assign (tfile,getf ile) ; 
reset(tfile); 

assign  (infile,in_fil_str); 
rewrite(infile); 
while  not  eofltfile)  do 
begin 

readln(tfile,a_line); 

writeln(infile,a_line); 

end; 

dose(tfile); 
dose(infile); 
done  :=  true; 

Tor  ward  :=  true; 

END;  " 

{ttmttttmmmttttmtmmtttttmtmttmmtmmtmmiitttttt 

I  F5;  INVOKES  THE  PROCESS  NHICH  ATTEMPTS  TO  LOCATE  AND  DISPLAY  THE  NEXT  I 
*  SEQUENTIAL  SAVED  MESSAGE  I 

mmmmmmtmtmmmtmtumumttmmmtmutmmtm} 

f 5:  BEGIN 

nu«_oF_esgs  (subfilstr,  old_ext); 

IF  o.addjos  =  f  THEN 
BEGIN 

getfile  :=  sub_fil_str  ♦  due_ext; 
fastwriteI0,3,lV  There  are  no  SAVED  eessages. 
refresher  (getfile); 
o  curjos  :=  0; 

END 

ELSE 

BE6IN 

if  (firstiae)  then 
begin 

firstiae  i-  false; 
scount  :=  1 ; 

Q_cur_pos  :=  1; 
fnua_ext  :=  M’j 

getfile  j*  sub_fil  str  ♦  old  ext  ♦  fnua_ext; 
fastwrite(0,3,I5,’”  SAVED  MESSAGE  #’);" 

Nindowd, 1,80,25); 

TextColor (white); 

Tex tBackSround (black); 

GotoXY(lV); 

WRITE (scount) ; 


a 


TextColor (yellow); 

TextBackGround(blue); 

Window (x 1+1 , yl , x2, y2) ; 
refresher  (getfile); 
end 
else 
begin 

o_cur  jos  :=  o_cur  jos  ♦  1; 

IF  o  cur  jos  (  o  addjos  THEN 
BE6IN 

scount  :=  scount  +  1; 

STR  (ojurjos,  fnuo_ext); 

getfile  :=  sub  fil_str  +  oldjxt  +  fnuo_ext; 

fastwrite(0,3,15,’~  SAVED  MESSAGE  »’>;" 

Window (1,1,80,25); 

TextColor (white) ; 

TextBack6round (black); 

GotoXY (19,4) ; 

WRITE (scount); 

TextColor (yellow) ; 

TextBackGround(blue); 

Nindow(xl+l,yl,x2,y2); 
refresher  (getfile); 

END 

ELSE 

BEGIN 

getfile  i=  sub_fil_str  ♦  duajxt; 
scount  is  0; 

f astwrite (0,3,15,’  There  are  no  oore  SAVED  eessages. 
refresher  (getfile); 
o_cur_pos  :=  0; 

END-” 

end; 

END; 

alright  :=  false; 

REPEAT 

IF  (vchoice<>f5)and(o_cur _pos=0)and(vchoice<>f2)and(vchoice<>escape)  THEN 
BEGIN 

fastwrite(0,3,15,’  Invalid  selection  sequence,  try  again. 

c«d_processor_2; 

fas[write(0,3,0,’ 

delay (200); 

END 

else 

alright  :=  true; 

UNTIL  alright; 

END; 

utmmtttttmumtmmtmtmmtmtmmmtutttmtimtmttt 

t  F6;  INVOKES  THE  PROCESS  TO  DELETE  THE  SAVED  MESSAGE  CURRENTLY  t 

I  INDICATED  BY  0  CUR_P0S  t 

tmtmmmtttttttttituttmttmmmtmttumtmtmtttmtttmt} 

ft:  BEGIN 

IF  o_cur  jos  >  0  THEN 


nua_of_asgs  (sub_fil_str,  old_ext) ; 

STR  (o_cur_pos,  fnuajxt); 

getfile  :=  subjil  str  +  old_ext  +  fnuajxt; 

Assign  (old_fil,  getfile); 

Erase  (old_fil); 

reorder _«sg  (sub_fil_str,  o!d_ext) ; 

IF  o_cur_pos  >  0  THEN  o_cur _pos  :=  o_curjos  -i; 
f astwritefO, 3, 15, ’  Message  has  been  deleted! 
getfile  :=  subjiljtr  +  duajxt; 
refresher  (getfile); 

END 

ELSE 

BEGIN 

f ast**rite<0,3, 15, ’  There  are  no  current  SAVED  eessages  to  delete! 
refresher  (getfile); 
o_cur  jos  :=  0; 

END? 

REPEAT 

IF  (vchoice  =  f 3)  OR  (vchoice  =  f4)  THEN 
BEGIN 

fastwrite(0,3,15,’  Invalid  selection  sequence,  try  again. 

cadjrocessor_2; 

fastwite(0,3,0,’ 

delay (200); 

END; 

UNTIL  (vchoice  <>  f 3)  AND  (vchoice  <>  f 4) ; 

REPEAT 

IF  (vchoice  *  f 6)  THEN 
BEGIN 

f astwri te (0,3,15,'  You  are  not  reading  a  aessage,  press  F5  to  continue. 

cadjroces5or_2; 

fastwite  (0,3,0/ 

del ay (200); 

END; 

UNTIL  vchoice  <>  ffc; 


END; 

{mmttttmuttmmtmmttttttmtmmmmmmttsmmmmt 

I  ESCAPE;  TERMINATES  FUNC .ENTRY  PROCEDURE  AND  CONTROL  IS  RETURNED  TO  t 
t  EMAIL  PROGRAM  t 

ttttmmmmmmmtmtmmttttmmmmttmttmtmmmm} 

escape:  BE6IN 

done  :*  TRUE; 

END; 

END; 

UNTIL  done; 


(overall  Case) 


{ummumtmmtmtmttmtmmttmmitmtmmtmttimmt 
I  HAIN;  HAIN  BODY  OF  THE  NINDON_READER  PROCEDURE  I 

tmtmttmttmmtmttimmtmmtmmtmmmmtmtmmm} 
BE61N 

cursoron (FALSE) j 
firstiee  :=  true; 
func_entry; 
cursoron (TRU£)| 

END;  {procedure  Nindo*t_Re»der) 


tmttmttmmttmtmmttmttttmmmttmiiittttttmtt 

MENU. INC  (PREVIOUSLY  USE  MENU)  Bill  Saints  t 

I 

(aodified  by  Sary  NcAlua  for  EMAIL,  July  1987  t 

I 

Displays  a  aenu  by  calling  up  a  tile  created  by  MENU_HAKER.COM. t 
When  an  itea  is  selected  by  pressing  ENTER,  the  mitber  of  the  t 
the  itea  is  returned.  The  calling  prograa  should  include  this  t 
file  and  aake  the  following  declarations:  t 

t 

Var  t 

varl  :  NinlstHdr;  t 

var2  :  integer;  I 

t 

The  aenu  file  should  be  read  at  the  beginning  of  the  calling  t 
prograa  using  the  following  stateaent:  ! 

I 

varl  :  =  Read  Henu_File(aenu  filenaael  t 

t 

The  aenu  is  then  displayed  using  the  following  stateaent:  t 

t 

var2  :=  Use  Nenu(varl,bor  type,bor  bgdr,bor  fgclr, false);  t 

I 

-  bor_type  sets  the  border  style:  1 

0=solid,l=single  line,2=double  line,  10=hatched  t 

-  bor_bgdr  and  borjgdr  are  the  border  colors  1 

-  boolean  paraaeter...true=aenu  stays  on  screen  after  choice  t 

false=aenu  disappears  after  choice  t 

t 

var 2  is  the  nuaber  of  the  aenu  itea  that  was  chosen  when  the  t 
user  pressed  ENTER.  t 

I 

mtttmtmtmmmmtttmmmtmmtmmtmmtmm) 

imtttmtttttmttttttmmtiutiumtumtmtmtttttutut 

NODE  POS;  I 

tummumtttmmmttmmmmtmummttttttmtmt} 

UNCTION  nodejoslthislist:  winlsthdr;  Ptr  :  winnode):  INTE6ER; 

VAR 

i  :  INTE6ER; 
nd  :  winnode; 

BE6IN 
i  :=  1; 

nd  :=  thislistA. first; 

WHILE  (nd  <>  Ptr)  DO 
BEEIN 

i  :=  i  ♦  1; 
nd  :=  ndA.next; 

END; 

node _po5  :=  i; 


{tttttittttmmittttttitttttmttttttitttttiitittimttmtmmt 

I  CRTJINLST;  CREATES  HEADER  FOR  LINKED  LIST  FOR  INPUT  WINDOWS  I 

tmtmimtmtttttmmmtmttmtttmttttmmmmmm) 

FUNCTION  crt_**nl st :  ninlsthdr; 

VAR 

thishead:  ninlsthdr; 

BEGIN 

NEW(thishead) ; 
thishead". LENGTH  :=  0; 
thishead". First  :=  NIL; 
thishead". last  :=  NIL; 
crtunlst  :=  thishead; 

END;  " 

{ttmttttmtmtimttittmtttmttttsttttittttmtmttttmtt 

t  INSTWNODE;  t 

uttmummtumummnummmmmmuummtuw 

FUNCTION  inst_*node(dat:  textstr;  xl,  x2,  lin:  INTE6ER; 

prev,  nxt:  mnnode):  einnode; 

VAR 

thisone:  winnode; 

BEGIN 


NEN(thisone); 

thisone".STR 

=  COPY (dat , 1 , LENGTH (dat ) ) ; 

thisone". prior 

=  prev; 

thisone". next 

=  nxt; 

thisone". exl 

=  xl; 

thisone". ex2 

*  x2; 

thisone*. fldlen 

=  (x2  -  xl)  +  1; 

thisone". lyne 

=  lin; 

inst_*node 

=  thisone; 

END; 

{mttmmtmtmmmmmmtmmmmutmmmtmm 

I  APP  NLST;  APPENDS  A  NODE  ONTO  LINKED  LIST  LST  I 

tmmttmtmmttmtttttttttmitittttttttttmtttmtmtmt} 

PROCEDURE  app_»tlst(thislist:  winlsthdr;  dat;  textstr; 
xl,  x2,  lin:  INTEGER); 

VAR 

thisone:  Ninnode; 

BEGIN 

IF  thislist". first  =  NIL  THEN 
BEGIN 

thisone  :=  inst_*node(dat,xl,x2,lin,NIL,NIL); 

thislist".last  :=  thisone; 
thislist". first  :=  thisone; 


ELSE 

BEGIN 

thisone  :=  inst_Hnode(dat, xl , x2, lin, thisl istA. last, NIL); 
thislist\last\next  thisone,* 
thislistA.last  :=  thisone; 

END; 

thi si ist"'. LENGTH  ;=  thislist\ LENGTH  +  I; 

END; 


{titmtitmmmmtitmttmmttttimttitmmtmttmm 

I  DEALL0C_f1LIST ;  » 

tumtmtmtmtmmtmmttttumtmmtttmtmttimti) 

PROCEDURE  dealloc_«list(wnst:  xinlsthdr); 


m 

nextode, 

ode 


:  itinnode; 


BEEIN 

if  *nstA. first  <>  nil  then 
begin 

ode  :*  xnstA. first; 

NHILE  ode  <>  NIL  DO 
BEEIN 

nextode  :=  odeA.next; 
dispose (ode); 
ode  :*  nextode; 

END; 

dispose(Mnst); 

end; 

END; 

{ttmtitmtimttmtmtmmmtttttmmimmiimmmtt 

»  READ  NENU.FILE;  READS  TEXT  FROM  FILE  INTO  LINKED  LIST.  t 

ttmtmuuumtmtmtmtmummmmttmtttmtmum 

FUNCTION  read_«enu_file(user_file:  file_len_66):  winlsthdr; 


(read  froe  a  text  file) 
(string  of  80  chars) 


{ttmtmttmttitttmtmttmttmmtmmtmmmtmmt 

t  FINDJINDON;  t 

mtmtmtmmmmmtuttttmmmttutmttmmmmt) 


PROCEDURE  find_windo*; 

VAR 

xl,x2,i ,  j ,  k , 

Iny, 

chx  :  INTEGER; 

ndstr  :  textstr; 

fndst, 
done, 

leftbrac  :  BOOLEAN; 

ch  :  CHAR; 

curnd  :  winnode; 

BE6IN 

leftbrac  :=  FALSE; 
done  FALSE; 
curnd  :=  eenlst*. first; 
lny  :=  1; 

REPEAT 
chx  ;=  1; 
k  s=  0; 
i  :=  0; 

DELETE (ndstr ,1,80); 

FOR  chx  :=  chx  TO  LEN6TH(curnd\STR>  DO 
BEGIN 

IF  leftbrac  THEN 
BEGIN 

i  :=  i  ♦  1; 

INSERT (curndA.STRtchxl,  ndstr,  i); 

END; 

IF  curnd\STRCchx]  =  ’[’  THEN 
BEGIN 
xl  :=  chx; 
leftbrac  :=  TRUE; 
k  :=  0; 

END; 

IF  leftbrac  THEN 
IF  curnd\STR[chxI  =  ’]’  THEN 
BE6IN 

leftbrac  :=  FALSE; 
i  :=  0; 
x2  :=  chx; 

appjtlst  (ttlst,  ”,xl,x2,  lny); 

wlst\l«t\STR  :*  COPY  (ndstr ,  1  ,LEN6TH  (ndstr )  -1 ) ; 
DELETE (ndstr, 1,80); 

END; 

END; 

DELETE (ndstr, 1,80); 
curnd  :s  curnd*. next; 
lny  :=  lny  +  1; 


IF  lny  >  »enlst\LEN6TH  THEN 
done  :=  TRUE; 

UNTIL  done; 

END; 


{tittittmtittitittittttititiittittittitttitittttiiititttittttttt 

I  READ  INPUT  FILE;  I 

ttttitmtttmtitttttittitttttititttttttttttttiiiitttttttiiittiti) 

BEGIN 

•enlst  :=  crtjinlst; 
wl st  :=  crtjinlst; 
nlst\*enrhr  :=  crtjinlst; 

Assian(fil«ar,user  Jile) ; 
fits*  e:  * sts  :=  exist(user_file); 

IF  (file_exists)  THEN 
BEGIN 

RESET (F i 1 var ) :  (get  the  text  file  ready  to  read) 

FOR  1  :=  1  TO  4  DO  READLNIfilvar,  «lstA.box[i)); 

READLNIfilvar,  nlstA.bgclr); 

READLNIfilvar,  nlst\fgdr); 
bx2  !=  *lstA.boxt2]  -  1; 

bxl  :=  nlstA.boxtl]  -  1; 

len  :=  wl stA. box C31  -  bxl; 

FOR  i  :=  1  TO  bx2  DO  app  wlst (aenlst, ’ ' , 1 ,5, 6) ; 

FOR  i  :=  nlst\boxt2]  TO  nlst\box[4]  DO 
BEGIN 

READLNIfilvar, filstring); 
app_wlst (Benlat , f i lstring, 1,5,6); 

FOR  k  :=  1  TO  len  DO 
BEGIN 

IF  filstringtk]  =  ’C’  THEN 
filstringtk]  :=  ’  ’; 

IF  filstringtk]  =  ’]’  THEN 
filstringtk]  :=  ’  '; 

END; 

appjdst(*l5tA.«enchr,filstring,  1,5,6); 

FOR  j  :=  1  TO  bxl  DO 
INSERT!'  ’ ,»enlstA.lastA.STR,j); 

END; 

CLOSE  If i 1 var ) ; 

END  Lif  exists,  INPUT  FILE  cannot  be  READ  IF  it  doesn’t  exist) 
ELSE 
BEGIN 

GotoXY (5, 10) ; 

WRITE  I '  11*111  FILE  ’,  userfile,’  DOES  NOT  EXIST!  111111' ) ; 

HALT; 

END; 

f indwi ndow; 

ulst'.savite*  :=  »lstA. first; 
read_»enu_file  :=  Hist; 
deal  1  oc_»l ist (aenl st ) ; 

END; 


.'[vy.'.V'X^'v’N'VjvV 


^  »■»  >▼< 


{mtmtmummmttmmmtumtmtmmmtmmmm 

I  MAIN  FUNCTION;  I 

immmummmmutmmtmtmtmtttttmtmttmtmt} 

FUNCTION  use_aenu(alstptr:  winlsthdr; 

bordtype, borbg, borf g: INTEGER; 
stay:  BOOLEAN):  INTEGER; 

CONST 


yes 

» i; 

no 

*  0; 

flO 

=  68; 

enter 

*  13; 

uarr 

*  72; 

darr 

*  80; 

larr 

«  75; 

rarr 

*  77; 

hoae 

8  71; 

endkey 

8  79; 

{mnmnumtmtmiummtmnnmtmmnunummu 

*  ONE_LINE_INPUT;  » 

tmmttmmmmmmmmmmmmmtmmttmtmttt} 

FUNCTION  one_line_input(alst  :  winlsthdr ; VAR  anode:  winnode; 

lint  :  INTE6ER; 

VAR  ret: INTEGER):  INTEGER; 

VAR 

i> 

cad, 

cur, 

index:  INTEGER; 
ch  :  CHAR; 
done  :  BOOLEAN; 
in_str  :  textstr; 

BEGIN 
cur  :-  1; 

in_str  :=  anode*. STR; 

6otoXY (cur , 1 ) ; 
done  :  =  FALSE; 
ch  :=  ’  ’; 
cad  :  =  0; 

WHILE  (done  <)  TRUE)  DO 
BEGIN 

READtKbd,  ch); 

IF  ch  =  CHR!27)  THEN 
BEGIN 

if  not  keypressed  then 


Degin 
READ (Kbd,  ch); 
cad  s=  ORD(ch); 

CASE  cad  OF 

uarr,darr,larr,rarr  :  done  :=  TRUE; 
END; 

ret  :=  cad; 
ch  :=  CHR(O); 
end; 

END 

ELSE 

BESIN 

IF  (ch  =  CHRU3))  THEN 
BESIN 

done  :=  TRUE; 
ret  :=  enter; 

END; 

END; 

END; 

IF  (NOT  stay)  OR  (ret  <>  enter)  THEN 
BE6IN 

GotoX Y (1,1); 

TextBack6round(alst*.bgdr); 

ClrEol; 

TextColor(alst*.fgclr); 

GotoXY (2,1); 

WRITE (in_str) ; 

END; 

one  line  input  :=  node _pos (alst, anode); 

END;  ' 


{ttmmtmmmmmttmtmmtmimttttttttmttmttmt 

»  PROCEED;  I 

tmtuttmmtiuttmtttttttutttttmmtttimttftmmmm} 

PROCEDURE  proceedfalst:  ainlsthdr;  VAR  anode:  ainnode); 

BESIN 

IF  anode*. next  <>  NIL  THEN 
anode  :=  anode*. next 
ELSE 

anode  :=  alst*. first; 
click; 

END; 

{tuttMtmtttitmttmttttuttttmtttmtmttmmmtttmtt 

I  BACKWARD;  » 

mnmmtmmumummummmmtmtmmnmmtw 

PROCEDURE  backward (alst:  ainlsthdr;  VAR  anode:  ainnode); 


BE6IN 

IF  anode*. prior  <>  NIL  THEN 
anode  :=  anode*. prior 


ELSE 

Hnode  :=  ulstMast; 
click; 

END; 

{tmmmmmtmummttmmmmmmmmmmttmt 

I  WRITE  FORM;  t 

tmuiihmttmmmmmmtmmmnmmmttnnmmt) 

PROCEDURE  write_f or« (wist:  Minlsthdr;  _color,fraaecdari  INTEGER) ; 
VAR 

curnd:  Ninnode; 
bxl,bx2,bx3,bx4, 
i, j,lyn  :  INTEGER; 


BEGIN 


HindoM(Hl5tA.box[l]fMlstA.box[2],HlstA.boxC31tHlstA.(>ox[4]); 

ClrScr; 

WindoNd,  1,80,25) ; 
bxl  :=  *lstA.box[l]-l; 
bx2  :=  xlstA.boxt2]-l; 
bx3  :=  ulst\box[3M; 
bx4  :=  ulstA.box[4M; 
curnd  :=  ulstA.aenchrA. first; 

FOR  lyn  :=  bx2  TO  bx4  DO 
BEGIN 

fasturite(bxl,lyn, .color, curndA.STR); 
curnd  :=  curndA.next; 

END; 

fra*e(ttlstA.box[U,ulstA.box[2],ulstA.boxt3],ulstA.boxI4], 

fraaecolor,bordtype); 

END; 


muumutmtumuuuuuttttmmtmttutttmtmmmt 

I  INIT;  * 

utmmmtmmtmmmmmtttmtmmttmmmtmutt} 


PROCEDURE  init (Mist:  uinlsthdr;  VAR  _color, 
fraaecolor,retcode:  INTEGER); 


BEGIN 

fraaecolor  s-  (borbgll6)+borfg; 

_color  :=  (ulstA.bgcIrtl6)+ulstA.fgclr; 
TextBack6round(ulstA.bgdr); 
TextColor(*lstA.fgdr); 
retcode  :=  0; 

END; 


{titmtttmmmmtittmtmtmtutmtmtttMtttmmmt 

I  CMD  PRO;  I 

tmtmmmtttmtmtmmmmmmttttttmtmmmtttt} 

VAR 

sav.aenu  :  rayptr; 


8. 


FUNCTION  cadjro:  INTEGER; 


» 


VAR 
Tgclr, 
retcode, 
lny, 
xl,x2, 
color, 
fraaecolor, 
choice  :  INTEGER; 

Hist  :  ninlsthdr; 

Hnode  :  ninnode; 

BEGIN 

nlst  :=  nlstptr; 

init(Hlst,color, fraaecolor, retcode); 

savaenu  :=  getx(HlstA.boxn],Hl5tA,box[2],Hl5tA.box[33,HlstA.bQxH]); 
nritejorafnlst,  color,  fraaecolor); 
nnode  :=  HlstA.savite»; 

NHILE  (retcode  <>  enter)  and  (retcode  <>  escape)  DO 
BEGIN 

xl  nnodeA.exl; 
x2  :=  nnodeA.ex2; 
lny  i-  HnodeA.lyne; 

NindoH(xl,lny,x2,lny+l); 

IF  HlstA.fgdr  =  yellon  THEN 
fgclr  :=  lightgray 
ELSE 

fgdr  :=  nlstA. fgclr; 

TextBac k6round(HlstA. fgclr) ; 

TextColor(HlstA.bgclr); 

BotoXY (1,1); 

ClrEol; 

6otoXY(2,l); 

WRITE  (nnodeA.STR); 

choice  :=  one_line_input (nlst, mode,  HnodeA.fldlen, retcode); 

CASE  retcode  OF 

uarr,iarr:  bactaard  (Hist,  mode); 
darr,rarr:  proceed  (Hist,  mode); 
escape  ;  choice  :=  3; 

END; 

END; 

ced_pro  :=  choice; 
retcode  :=  200; 

IF  stay  THEN 
HlstA.savitea  :  =  mode 
ELSE 
begin 

xfree  :=  true; 

putx(HlstA.box[l],HlstA.boxI2],sav_aenu); 
xfree  :=  false; 
end; 

END; 


LISTING 


f 

».  INC 


mtttmmmtmmmnmtmmttmtmtmmttttmttttittt 

SEND. INC  (EDITOR. INC  PREVIOUSLY) 

Bill  Saints 

(aodified  by  Sary  HcAlua  for  EMAIL,  July  1987 

This  callable  editor  can  be  called  into  any  window.  It  creates 
a  window  of  the  specified  color  and  location.  The  window  is 
reaoved  when  you  exit  froa  the  editor.  The  editor  contains  a 
help  screen  that  lists  the  cursor-control  and  editing  coaaands. 

The  following  paraaeters  aust  be  set  prior  to  the  call: 


xl, 

-  left  coluan  of  window  (  >1  ) 

yi. 

-  top  line  of  window  (  >1  ) 

x2, 

-  right  coluan  of  window  !  <80) 

y2, 

-  bottoa  line  of  window  (  <25  ) 

back, 

-  background  color  of  window 

fore, 

-  color  of  text  in  window 

fback, 

-  bgd  color  of  border  (-1  =  no  border) 

ffore  : 

integer,  -  color  of  line  in  border 

edtjile: 

StJ>6,  -  naae  of  file  to  be  edited 

Bor  : 

integer,  -  1  of  border  lines  (1,2) 

outpt  i 

integer);  -  l=rewrite  file,  2=append 

The  procedure  RE_RITEJXT(filenaae)  can  be  called  after  exiting 
the  editor  to  write  the  edited  text  to  a  file.  The  procedure 
APP_RITE_TXT  can  be  called  to  append  the  edited  text  to  a  file 

ummtttttmuttmtmttitttttttmmtttmimtmtmmmt 


{tttmmmmmtmmmmmtttuttmttmtmmmmmm 

t  Editor;  Contains  all  the  editing  functions,  linked  list  rountines, 
t  and  all  global  variables  are  local  to  the  editor. 

tmtttmmmtuttmttutttuutmutmmmmmttmmmt 

(tmtttmmmmmmtmmtttmtmmmtmmttmttmm 

»  INITIALIZE; 

tmmttmmmmmtmmmmttmmtmmmtttmmtmt 

PROCEDURE  initialize; 

BEGIN 

rowset  :=  yl  -  1; 

rowset 1  :=  rowset- 1; 

col  set  :=xl; 

colsetl  :=  xl+1; 

colour  :=  (backtl6)+fore; 

hlpcolor  :=  (lightgraytlGHblue; 

stringjength  :=  (x2  -  xl)  -  1; 

aaxjines  :=  (y2  -  yl  ♦  1); 

right_aargin  :=  stringjength  ♦  1; 

bottoa_row  :=  aaxjines; 


'W.V, 


r.trr.n.C*. 


m 


coluan  :=  left_eargin;  (current  y  position  tor  60TQXY) 

row  :=  top_row;  (current  x  position  tor  6QT0XY) 

inserted  :=  TRUE;  (user  has  not  pressed  INS  key.  5 

cntjlag  :=  0; 

nodejn  :=  1;  (beginning  page_buffer  array  subscript  value.  } 

FOR  i  :=  1  TO  strinq_lenqth  DO 
INSERT (’  ’ ,blankstr,  1); 

DELETE  (blankstr,string_length,  81-string  Jength); 

END;  (procedure  initialize) 

{mmmmmmtmtttmttmtttmtmmmummmtmtmt 

I  CUR.NODE;  RETURNS  A  PTR  TO  THE  CURRENT  NODE  OF  LINKED  LIST  I 

tmmttttmmtmmttmutttumttttmtmttmtmmmmtt} 

FUNCTION  cur_node(POS:  INTE6ER):  nodeptr; 

VAR  J 

i:  INTEGER;  J 

nd:  nodeptr;  j 

s 

BEGIN  * 

nd  :=  lst*.first;  ! 

FOR  i  :=  2  TO  POS  DO  j 

nd  :=  nd*.next;  j 

curjiode  :=  nd;  i 

END;  1 


{mmmmttmnttmunummummmtuumuuntttutn 

t  CRT  DBL;  CREATES  HEADER  FOR  LINKED  LIST  FOR  TEXT  LINES  I 

tmtmmmmmtmmmtmtmtmtutttmtmtttummms) 

FUNCTION  crtjbl:  list; 


VAR 

thishead:  list; 

BEGIN 

NEN(thishead); 
thishead*. LENGTH  s=  0; 
thishead*. first  :=  NIL; 
thishead*. last  :=  NIL; 
crt  dbl  :=  thishead; 

END; 

{uttmttmtmtmmmttmmmtmtmmttmmttmtmm 

I  INST  NODE;  CREATES  A  NEN  NODE  FOR  LINKED  LIST  I 

tttttmtmtmtmtmtmtmmttmttmmttsmttmmmtm} 

FUNCTION  inst_node<dat:  txstr;  prev,  nxt:  nodeptr);  nodeptr; 


VAR 


thisone:  nodeptr; 


vwwwwwwrax  v.  utmwwv  w  v  iv  xmr,  www.vlv,vv,v1ww"J'^1 


thisoneA. prior  :s  prev; 
thisoneA,next  ;=  nxt; 
thisoneA.ne*ln  :=  1; 
inst  node  :  =  thisone; 

END; 

{utttmmmmmmttmummtmttmmutmmttmmm 

t  APPJ.ST;  APPENDS  A  NODE  ONTO  LINKED  LIST  I 

utuhnmmttuttmtmmtmmmtmmmmtttmmmm} 


PROCEDURE  app_lst (dat:  txstr); 


VAR 


thisone:  nodeptr; 


BEGIN 

IF  lstA. first  =  NIL  THEN 
BE6IN 

thisone  :=  inst _node(dat, NIL, NIL); 
lstA. last  :=  thisone; 
lstA. First  :=  thisone; 

END 

ELSE 

BE6IN 

thisone  :=  inst_node(dat,lstA. last, NIL); 
lstA.last\next  :=  thisone; 
lstA. last  :=  thisone; 

END; 

1 st- \ LENGTH  :=  I stA. LENGTH  ♦  1; 

END; 


{mmttmmtmuuumtmtttmtttmmmmmmmmttu 

*  INSERT  LST;  INSERTS  A  NODE  INTO  THE  LINKED  LIST  t 

ttmutttmtttttmmmttttttmtttmtmtttumtmmuttmt} 

PROCEDURE  insert_Ist(dat:  txstr;  POS:  INTEGER); 


VAR 


te«p, 

thisone:  nodeptr; 
i:  INTE6ER; 


BEGIN 

IF  lst\ LENGTH  =  0  THEN 
BE6IN 

thisone  :*  inst_node(dat,NIL,NIL); 
lstA. First  :=  thisone; 
lstA. last  :=  thisone; 

END 

ELSE 

BEGIN 

teep  :=  cur _node(P0S) ; 

IF  teap  <>  NIL  THEN 
BEGIN 

thisone  :s  inst_node(dat,teapA. prior, teap); 
IF  thisoneA. prior  <)  NIL  THEN 


J. 


thisone*. prior*. next  :=  thisone 
ELSE 

lstA. first  :=  thisone; 
teep*. prior  :=  thisone; 

END 

ELSE 

BEGIN 

thisone  :  =  inst_node(dat, 1st*. last, NIL); 

1st*. last*. next  :=  thisone; 
lstA. last  :=  thisone; 

END; 

END; 

1 st A. LENGTH  :=  lstA. LENGTH  +  1; 

END; 

{tmtmmtmmmmmmtmmmtmmmmmmmmtm 

t  DEL  HERE;  DELETES  ft  NODE  FROM  THE  TEXT  LINKED  LIST  AND  t 

I  RETURNS  THE  TEXT  STRING  FROM  THAT  NODE  t 

tmummitmmtmtmtmmtumtmmtmummummtt} 

FUNCTION  del _her e (POS:  INTEGER):  txstr; 


teap :  nodeptr; 

BEGIN 

teep  :=  lstA. first; 

IF  POS  =  1  THEN 
BEGIN 

lstA. first  :=  teep*. next; 

IF  lst\ first  <>  NIL  THEN 
lstA. first*. prior  :=  NIL; 

END 

ELSE 

BEGIN 

teep  :=  cur_node(POS); 
teepA. prior*. next  :=  teep*. next; 

IF  teep*. next  =  NIL  THEN 
1st*. last  :=  teep*. prior 
ELSE 

teep*. next*. prior  :=  teep*. prior; 

END; 

deljiere  :=  teep*.txt; 
dispose (teep) ; 

1st*. LENGTH  :=  1st*. LENGTH  -  1; 

END; 

{tmmmmttmmttmmtmmtitmmtttmuttttttitmttm 

I  APP_RITE_TXT;  APPENDS  EDITED  TEXT  IN  ACTIVE  WINDOW  TO  FILE  I 

ittttttititttitttmtmttutttttuttttuttttmttttttmttmmttstt} 

PROCEDURE  app_rite_txt(outfile:  str_66); 


filvar:  TEXT; 


Assigntfilvar,  outfile); 

IF  exist (outfile)  THEN 
append (f i lvar) 

ELSE 

REWRITE (♦ i lvar ) ; 

WHILE (lstA- LENGTH  <>  0)  DO 
NRlTELNIfilvar,  del_here<l)); 

CLOSE (filvar); 
dispose(Lst); 

END; 

{ttmmmtttmmtmttmmtmmttmmmmmmmmmt 

»  RE  JUTE  TXT;  NRITES  TEXT  FROM  ACTIVE  WINDOW  INTO  FILE.  I 

I  INCLUDES  THE  SENDER’S  AND  RECEIVER’S  USER  NAHES  AS  » 

I  NELL  AS  WHEN  THE  MESSAGE  NAS  SENT  t 

tmtuumtmmmttuttnumunmmumumumtumtm) 


PROCEDURE  re_rite_txt(txfile:  str_66); 


filvar:  TEXT; 

BEGIN 

Assign (fi I var,  txfile); 

RENRITE(filvar); 

NRITELN(f  llvar, fro*  _andJro*_na*e, ’TINE  HESSA6ESENT:  ’,chour[l],chourI2],’:’,c*in[l],c*in[2]) 
NRITELN (filvar,  to_and_ta  na«e); 

NRITELN(filvar); 

NHILE  (lst*. LENGTH  <>  0  )  DO 
NRITELNtfilvar,  del  here(i)); 

CLOSE(filvar); 

dispose(Lst); 

END; 

[tmmmmmtmmtmmmumttmtmmmmmmutm 

t  NINDON  CORNERS;  t 

mtttmimmtmtmmnmmntmnmnmntnmntmmt) 

PROCEDURE  tnndo*_corners(VAR  xl,yl,x2,y2:  INTEGER); 


VAR 

upper_left_x 

upper_left_y 

loxerrightj 

lo**er_right_y 


Byte  Absolute  DSeg:$0004; 
Byte  Absolute  DSeg:t0005; 
Byte  Absolute  CSeg:$16a; 
Byte  Absolute  CSeg:$l6b; 


tttmmmititttttimmmtmtmmtttttmtnm.immtm 

FASTMRITE. INC 

Prints  a  string  iuch  faster  than  nriteln. 


The  colors  are  controlled  by  passing  appropriate 
integers  in  the  attrib  parameter; 

Values  Trot  0  to  15  Hill  give  you  a  black  background 
and  the  foreground  color  associated  uith  the  usual 
nuabers.  Froa  16  to  31  will  give  you  a  blue  back¬ 
ground  with  the  foreground  colors  cycling  through 
again.  And  so  on  through  127.  For  exaaple,  passing 
14  in  attrib  Hill  give  you  black  background  and 
yelloH  foreground.  The  value  30  Hill  give  you  blue 
background  and  yell  oh  foreground. 

The  nuabers  froa  12B  through  155  Hill  repeat  the 
above  sequence  but  Hill  produce  blinking  text. 

An  easy  nay  to  calculate  the  nuaber  you  need  for 
a  particular  coabination  of  background  and  foreground 
colors  is  to  use  the  foloning  foraula,  substituting 
nuabers  given  in  the  Turbo  Manual  for  the  colors: 


(background-color  *  16)  +  foreground-color 


mtmmmmtmtittmttmmmtuttttttmmimmtmtit 

YPE 

stringBO  =  STRIN61801; 


PROCEDURE  f astwr ite (col ,row,attrib:Byte;STR:strinq80) j 
BE6IN 
InLine 

($le/$le/»8a/*86/roH/«b3/t50/tf6/*e3/»2b/$db/*Ba/f?e/col/ 

*03/$c3/*03/tc0/$8b/$f8/*be/$00/$00/$8a/»be/attrib/ 

»8a/*8e/STR/»22/$c9/*74/$3e/*2b/*c0/$8e/*d8/»a0/f49/*04/ 

$lf/*2c/»07/»74/*22/»ba/$00/$b8/$8e/*da/*ba/*da/t03/*46/ 

»8a/$9a/STR/$ec/*a8/*01/»75/tfb/*fa/»ec/*a8/*01/*74/*fb/ 

$89/*ld/»47/*47/$e2/*ea/*2a/»cO/»74/$10/$ba/tOO/$bO/ 

$8e/$da/*46/*8a/$9a/STR/$89/$ld/$47/$47/»e2/*f5/»lf); 

END; 


PROCEDURE  fraae(up_left _x,up_left_y,lo  right_x,lo_right_y,colr, 
borderTlNTEGER);” 


xl,yl,x2,y2, 
ul^l^lr^ertjhorz, 
i:  INTEGER; 


BEGIN 

yl  up_lef t_y  -  1; 
y2  :=  1 o_r i ght_y  -  1; 
xl  :=  up_left_x  -  1; 
x2  :s  lo_right_x  -  1; 


CASE  border  OF 


O: BEGIN 

ul: 

=  219, 

ur 

=219; 1 1 : 

=219; lr: 

=219; vert: 

=219;horz: 

=219; END; 

1-.BE6IN 

ill 

=  218 

ur 

=191 ; 1 1 

=192; lr: 

=217; vert: 

=179;horz: 

=196;END; 

2: BES1N 

Ul. 

=  201* 

ur 

=187; 1 1 : 

=200: lr: 

=188; vert: 

=186; horz : 

=205; END; 

3: BEGIN 

ul 

=  213 

ur 

=184; 11 

=212; 1 r : 

=190; vert: 

=179; horz : 

=205; END; 

4: BEGIN 

ul 

=  214 

ur 

=183; 1 1 : 

=21 1; lr : 

=189; vert : 

=186;horz : 

=196; END; 

5: BEGIN 

ul 

=  204 

ur 

=185; 11 

=204; 1 r : 

=185; vert: 

=186;horz : 

=205; END; 

10: BEGIN 

ul. 

=  176, 

ur 

=176; 11: 

=176; lr: 

=1 76; vert : 

=176;horz: 

=176; END; 

1 1 : BEGIN 

ul 

--  177 

ur 

=177; 1 1 

=177; lr: 

=177 ; vert: 

=177;horz: 

=177;END; 

12: BEGIN 

ul: 

=  178 

ur 

=178; 1 1 : 

=178; lr : 

=178; vert: 

=178; horz : 

=178: END; 

END; 

Fast*rite(xl,yl,colr,CHR(ul)); 

FOR  i  :=  xl  +  1  TO  x2  -  1  DO 
fastNrite(i,yl,colr,CHR!horz)); 
fastwrite(i+l,yl,colr,CHRfur))j 
FOR  i  :=  yl  +  1  TO  y2  -  1  DO 
BEGIN 

Fastwr i te (x 1 , i , coir, CHR  < vert ) ) ; 
•f  astwr  i  te  (x2,  i ,  col  r ,  CHR  (vert ) ); 
END; 

f astwrite (x 1 , y2,col r , CHR  (1 1 ) ) ; 

FOR  i  :=  xl  +  1  TO  x2  -  1  DO 
fastHrite(i,y2,colr,CHR(horz)); 
fastwrite(i+l,y2.colr,CHR(lr) ) ; 

END; 


{nmutuummumtmtnmmmmttumumuutumtmt 

*  NAITKEY;  PAUSES  PROGRAM  FOR  KEYBOARD  INPUT.  YES  PARAMETER  CAUSES  I 
I  PROMPT  MESSAGE  TO  BE  SHOWN  NHEREVER  CURSOR  IS  LOCATED.  I 

tmmmmtmmmmtmmmmmmtmmmmtmmtmt} 

PROCEDURE  waitkey (proapt:  INTEGER); 

VAR 

c  :  CHAR; 

BE6IN 

IF  proipt  =  yes  THEN 

WRITE! ’ tt  PRESS  SPACEBAR  TO  CONTINUE  I*’); 

REPEAT 

READ(Kbd,c); 

UNTIL  ORD(c)  =  32; 

END; 


{mtmtmtttmmmtmttmmtmtmtttttmtmtmmmmt 

I  READ.INPUT  FILE;  READS  TEXT  FROM  EXISTING  FILE  INTO  LINKED  LIST.  I 
I  IF  FILE  DOESN’T  EXIST,  JUST  CREATE  ONE  NODE  I 

»  NITH  BLANK  IN  IT.  I 

ttttitmtmmttttttmtttmttmutttttuuttmttmtmitttxtut) 


PROCEDURE  read_input _file(user  Jile:  str_66) ; 

VAR 

i,l  en 

coaaentfile 
t  i  1  e_ex  i  sts 
instr 

BEGIN 
1st  :-  crt_dbl ; 

Assign  (coaaentfile,  user  Jile); 
file_exists  :=  exist (user i le> ) 

IF  (f ile_exists)  THEN 
BEGIN  ” 

RESETlcoaaentfilel*,  (get  the  text  file  ready  to  read} 

WHILE  NOT  EOF (coaaentfile)  DO 
BEGIN 

READLN (coaaentfile, instr); 
len:=LEN6TH(instr); 
app_I st (instr); 

DELETE  (lstA.  last*,  txt, string  Jength,Bl-stringJength); 

END;  (while) 
lstMast\newln  :=  1; 

CLOSE(coaaentfile); 

END  (if  exists)  (INPUT  FILE  cannot  be  READ  IF  it  doesn’t  exist) 
ELSE 

insertJstC  ’,  1); 

END; 

{mmummtnnuntuumnnnnntmmtmmmntmum 

t  PREPOPUPROUTI NES ;  I 

tttmmmmutttmmmtmmtttmtttttmtmtmtmtmmt) 

PROCEDURE  prejopup  routines; 

CONST  (prepare  the  popup  windows,  ) 
exit_aessage  -  ’  F10  =  SEND  ’; 
hel p_wi n_asg  =  ’  FI  =  HELP 
cancel_asg  =  ’  ALT  F9  =  CANCEL  ’; 

VAR 

pgwnd, 

stk, 

hip:  INTEGER; 

BEGIN 

pg_wnd  :=  xl  ♦  TRUNC(((x2  -  xl)  -  151/2)  +  1; 
hip  :  =  (x2  -  (15  ♦  xl)); 

fraae(xl-l,yl-l,x2+l,y2+l, (f backtl6)+f fore,bor ) ; 
f  ast  wr  i  te  ( x  1 +2 ,  y2 ,  f  f  or  e ,  ex  1 1  _aessage ) ; 
fastwrite(hlp-l,y2,ffore,help_win_asg) ; 
f astwr i te(x 1+2, yl-2,f fore, cancel _asg); 

Nindow(xl,yl,x2,y2) ; 

TextBackGround(back); 

ClrScr; 

Nindow(xl+l,yl,x2,y2); 


:  INTEGER; 

:  TEXT;  (read  froa  a  text  file) 
:  BOOLEAN; 

:  txstr;  (string  of  80  chars) 


{tmummmttmmttmmtmmmmmmmtimtmttmtt 

I  DISPLAY JMRNIN6;  TOP  AND  END  OF  FILE  WARNINGS  » 

ttmtmmmttmmmtmmttmtmmttmttmmmmmttt} 

PROCEDURE  display_warning (hey_there:  str ing!2) ; 

VAR  x,y  : INTEBER; 

BEGIN 

x:=XhereX; 
y :=WhereY; 

•knin(xl+l,yl,xl+20,yl+3, black, green, 3); 

GotoXY (3,2) ; 

WRITELN (bel  1 , hey_there ) ;  (ring  the  bell  and  display  naming  isg.) 

Del  ay (500) ;  (ailliseconds.l 

renin; 

Hindon(x 1+I,yl,x2,y2); 

GotoXY (x,y) ; 

END; 

{mtmmmmummmmmmnutmmtmttmmmmmt 

I  DISPLAY  JEXT;  DISPLAYS  A  PAGE  OF  TEXT  STARTING  NITH  NODE.NUH  I 

tmimmtttmmtmttmmttmmtttmmmtmmttmmmi 

PROCEDURE  display_text(node_nue:  INTEGER); 

VAR 

x_l,  x_2,  y_l,  y_2,rn,col,end_line,  startjine,  i:  INTEGER; 
nd:  nodeptr; 


BEGIN 

endjine  :=  («ax  lines); 

startjine  :=  (end  line  -  (eaxjines  -  1) ) ; 

col  :=  leftaargin; 

nindon_corners(x  J,rn,x_2,y_2); 
xj  :=  x_l  -  1; 

ClrScr;  (clear  off  any  old  text.) 

(display  the  appropriate  text  on  the  screen.} 
nd  :=  cur_node(node_nue); 
rn  :=  rn  -  1; 


FOR  i  :=  start  line  TO  end  line  DO 
BE6IN 

IF  nd  <>  NIL  THEN 
BEGIN 


fastnrite(xj,rn,  colour,  nd\txt); 
nd  :=  ndA.next; 

END; 

rn  :=  rn  ♦  1;  (increment  for  the  next  ron.) 

END;  (for) 

curnd  :=cur_node(nodeJn); 

GotoXY(coIuanfron); 

END; 


(tmmmmimtmmmtttmmtttmmttmttmtttmmtmt 
t  SHO  NODE;  DISPLAYS  INSERT/OVERNRITE  NODE  ABOVE  WINDOW.  t 

tmmtttmmuttttmummtmummtmtmutmmmum) 


PROCEDURE  sho_aode; 


VAR  loc:  INTE6ER; 

BEGIN 

loc  ;=  (x2  -  (15  +  xll); 

Nindow(xl,yl-l,x2,yl+l); 

GotoXY (loc, 1) ; 

TextBack6round(black); 

TextColor(ffore); 

IF  msertad  =  TRUE  THEN 
WRITE! ’  Insert  Rode  ’) 

ELSE 

NRITE(’Over*rite  Rode’); 

Nindo*(xl+l,yl,x2,y2); 

Tex tBackGround (back); 

TextColor (Tore) ; 

GotoXY  (colum^roit) ; 

END; 

{mtmtmmmmtmmtmmttmmmtmmtmtmtmtmt 

I  INS_R0DE;  Sets  insert/overwrite  aode.  I 

ttmmummmttmimmtmmmmumttmtmttiuttuttt} 

PROCEDURE  ins_aode; 


BEGIN 

insertad  :=  NOT  inserted; 
sho_aode; 

END; 

{mmttmumtmmmttmtmmmttmmmmmmmmu 

t  DEL_REST_LINE;  DELETES  THE  LINE  FROR  THE  CURSOR  ON.  » 

tttmtummitututttttittitititttmtttmumimmtiimtmt} 

PROCEDURE  del_rest_line; 


DELETE(curnd\txt, coluan,  LENGTH (curndMxt)  -  coluan  ♦  1); 

ClrEol; 

END; 

{ttmutmtmtmmtmtmtitttmittmmmmttttmmmttt 

I  TAB_TO_BLANK;  ROVES  CURSOR  TO  NEXT  BLANK  TO  THE  RIGHT.  I 

mttutttimmttmtttuttmtmmtttutuitmitimitmimm} 

PROCEDURE  tab_to_blank; 


BEGIN 

IF  coluan  <  LENGTH (curndA. txt)  THEN 
BEGIN 

coluan  :=coluan  ♦  1; 

WHILE  (curnd\txttcoluanl  <>  ’  ’)  DO 
coluan  :=  coluan  +  1; 

IF  coluan  >  LENGTH (curnd"'. tx t )  THEN 
coluan  :=  coluan  -  1; 

END; 

END; 


{tmttmmttitttmtmttmttttmttttttitmtttttttmtitimtm 

I  TA8JEFT;  MOVES  CURSOR  TO  FIRST  BLANK  TO  THE  LEFT.  I 

ttmtmmmittttttmmmtimmmttmmtmtttttmtmmt} 

PROCEDURE  tab .left; 

BE6IN 

IF  coluan  >  1  THEN 
BESIN 

coluan  :  =  coluan  -  1; 

WHILE  (curndA.txtlcoluanl  O’  ’)  AND  (coluan  <>  1)  DO 
coluan  :=  coluan  -  1; 

END; 

END; 

{tmmmmmtmmmmtmttmmmtttmmtmmmtttm 

t  PAGEDOWN;  DISPLAYS  NEXT  SCREEN  PA6E  I 

tmtitmutmmtmuttmuiuttttiuttimttumttmttttmm) 

PROCEDURE  pagedoan; 

VAR 

node_nua:  INTEGER; 

BE6IN 

IF  node.ln  <  lstA. LENGTH  THEN 
BESIN 

IF  ( (nodejn  +  aax  lines)  <=  lstA. LENGTH)  THEN 
BESIN 

nodejn  node  ln  *■  aaxjmes; 
coluan  :*  1; 

node  nua  ;=  node  In  -  row  ♦  1; 

END 

ELSE 

BESIN 

coluan  :=  I; 

IF  lst\LEN6TH  >=  aax  lines  THEN 
BESIN 

IF  (aax  lines  -  roa)  <  (Ist*. LENGTH  -  node  In)  THEN 
BESIN 

node_nua  :=  nodejn  +  (aaxjines  -  roa)  +1; 

I F ( ( 1 st A . LENSTH-node  In) -(aax  lines-roa))  <  roa  THEN 
BEGIN 

roa  :=  (lstA. LENGTH  -  nodejn)- (aax Jines-roa); 
node  In  lstA.LEN6TH; 

END 

ELSE 

BESIN 

node  In  :=  node  In  +  aax  lines; 

END; 


END 

ELSE 

BESIN 

node_nue  :*  lst\LEN6TH  -  roa  ♦  l; 
node  In  :*  lstA.LEN6TH; 

END; 

11. 


*iaHaaiKKsa««»ai^^ 


END 

ELSE 

BEGIN 

nodejiue  :=  Ist^. LENGTH  -  roe  +  1; 
nodejn  :*  lst*. LENGTH; 

END; 

END; 

display  text (node  nu«) ; 

END 

ELSE 

display  earning(end_of  Jile); 

END; 

{tmtmtmmmmmtmttmtmtumtmttumtmtmtmm 

t  PA6EUP;  DISPLAYS  PREVIOUS  SCREEN  PA6E  I 

tuumtuummuunmmmutmmmmtmmmmttuuu} 

PROCEDURE  page_up; 


nodejiue:  INTE6ER; 

BEGIN 

IF  nodejn  >  1  THEN 
BEGIN 

IF  ((node  In  -  eax  lines)  )  0)  THEN 
BEGIN 

nodejn  :*  nodejn  -  eax  lines; 
coluen  :=  1; 

IF  nodejn  <  roe  THEN 
roe  :s  nodejn; 
nodenue  :=  nodejn  -  roe  ♦  1 
END 
ELSE 
BEGIN 

coluen  :=  1; 
roe  :=  1; 
nodejn  :=  1; 
node  nue  :s  1; 

END; 

display  text (node  nue); 

END 

ELSE 

display  earningltop  of  file); 

END; 

{tmtmmtimmmittimtmmtiuittttmtttttmtmmtmti 

I  G0J0J0P;  MOVES  CURSOR  TO  FIRST  LINE  IN  FILE  » 

tttttttumtmtittmumtmmttmttuttttftttitttitmmtmii} 

PROCEDURE  gojojop; 

BEGIN 

coluen  :=  1; 
roe  :=  1; 
nodejn  :=  1 ; 


curnd  :*  1st  .first; 
display  text ( 1) ; 

END; 


{luttttmttimtuttmtmtttimitutmtttittiummtttttttmt 

»  60J0_END;  HOVES  CURSOR  TO  LAST  LINE  OF  FILE  » 

ttmummttmmtmttttmmttttmtttmttmmtmtmt'tm) 

PROCEDURE  qojo_end; 

VAR 

nodejiua:  INTE6ER; 

BEGIN 

nodejn  :=  1st*. LENGTH; 
coluan  :=  1; 

nodejiua  :=  (lstA.LEN6TH  -  aaxjines)  ♦  1: 
curnd  :s  1st*. last; 

IF  nodejiua  <  1  THEN 
BEGIN~ 

nodejiua  :=  1; 
roe  7*  1 st* . LENGTH; 

END 

ELSE 

roa  bottoaroa; 
display  textinode  nua); 

END; 

{tiitiittttmttiiiiitmitittitiittitttttmmmiinmmmiitm 
t  CUR  LEFT;  MOVES  CURSOR  ONE  CHAR  SPACE  TO  THE  LEFT  I 

tmtttuiitmmtmimtmtttitmtttmttiuttiiitittmttmim} 

PROCEDURE  curjeft; 

BEGIN  (left  arrow) 

IF  (coluan  >  left_aarqin)  THEN 
coluan  :  =  coluan  -  1 
ELSE 

IF  nodejn  >  1  THEN 
BEGIN 

nodejn  ;=  nodejn  -  1; 

curnd  :=  curnd*. prior; 

coluan  :=  (LENGTH (curnd*. txt)  ♦  1); 

IF  roa  >  topjoa  THEN 
roe  :=  roa  -  1 
ELSE 
BEGIN 

GotoXY ( 1 , roa) ; 

InsLine; 

6otoXY(l,roa); 

WRITE (curnd*. tx  t ) ; 

END; 

END 

ELSE 

display  aarni  rig  (top  of  file); 

END; 


{tmummitutmtuituttmmtimmttuttmmmttmtttm 

I  CUR_RI6HT;  MOVES  CURSOR  ONE  SPACE  TO  RI6HT.  I 

mtiMmmmttmttmtmtmmttmmmtmttimtmmttttt} 

PROCEDURE  cur _right; 

BEGIN 

IF  Icoluan  <  right_aargin)  THEN 
BEGIN 

IF  (coluwi  <=  (LENGTH (curndA.txt) >)  THEN 
coluan  :=  coluan  +  1 
ELSE 

IF  nodejn  <>  lst*.LEN6TH  THEN 
BE6IN 

coluan  s=  1; 
nodejn  nodejn  ♦  1; 
curnd  :=  curnd*. next; 

IF  row  <  bottoajow  THEN 
row  :=  row  ♦  1 
ELSE 
BE6IN 

GotoXY ( 1 , top_row) ; 

DelLine; 

GotoXY(l,row) ; 

MRITE (curndA. txt) ; 

END; 

END; 

END 

ELSE 

display  warningtend  of  file); 

END; 

{tmmtummtmmtttmttmmmttmmmmtmtmtmm 

»  CUR_UP;  MOVES  CURSOR  UP  ONE  LINE.  » 

umttmmttmimmttmmttttmmittttttmtmmmmtttt} 

PROCEDURE  cur  up; 

BE6IN  (user  wants  to  aove  up  a  line) 

IF  (row  >  top  row)  THEN 
BEGIN 

row  :=  row  -  1; 
nodejn  nodejn  -  1; 
curnd  :=  curnd*. prior; 

IF  coluan  >  LEN6TH(curnd*.txt)  THEN 
coluan  :=  (LENGTH (curnd*. txt)  +  1); 

END 

ELSE 

IF  nodejn  >  1  THEN 
BEE  IN 

GotoXY  < 1 , tom) ; 

InsLine; 

6otoIY(l,row)) 
curnd  :*  curnd*. prior; 

NRITE(curnd*.txt>; 
node  In  :*  node  In  -  1; 


display_iarning(top_of  Jile); 


END; 

{ismmmtmttmmttmmttmmtmmmumtmtttmtm 

t  CURJJONN;  MOVES  CURSOR  DOWN  ONE  LINE  I 

tittimmmmtmmttmmtmmuumumumtmtmtmt: 

PROCEDURE  cur_do«i; 

BE6IN 

IF  node  In  <  lst\L£N6TH  THEN 
BE6IN 

IF  (row  <  bottoi_rou)  THEN 
BESIN 

row  :=  row  +  1; 
nodejn  :=  nodejn  ♦  1; 
curnd  :=  curnd*. next; 

IF  coluin  >  LENGTH  (curnd"' .  txt )  THEN 
coluin  :=  LENGTH (curndA. txt )  ♦  1; 

END 

ELSE 

BEGIN 

GotoXY (1,1); 

DelLine; 

GotoXY ( 1 f  bottoa_roM) ; 
curnd  :«  curnd*. next; 

HME(curnd\txt) j 
nodejn  :=  nodejn  ♦  1; 

IF  coluin  )  LENGTH (curnd*. txt)  THEN 
coluin  :=  LEN6TH(curnd*.txt)  +  1; 

END; 

END 

ELSE 

display  «arning(end  of  file); 

END; 

{ mttnmtmuuunmttnttmnnmtummunumnmum 

I  DELJINE;  DELETES  THE  LINE  ON  WHICH  THE  CURSOR  IS  LOCATED.  I 

tttttttttttttimttittmmtmttuttttttmtttiifimtttmtmttm} 

PROCEDURE  deljine; 

VAR 

st:  txstr; 
nd:  nodeptr; 

BESIN 

IF  curnd*. next  <>  NIL  THEN 
BESIN 

curnd  :*  curnd*. next; 
st  del  _here<  nodejn); 

GotoXY ( 1 , row) ; 

DelLine; 

IF  ((bottowjaw  -  row)  <=  <Ist*.LENGTH  -  nodejn)?  THEN 


15. 


BEGIN 

GotaXY ( 1 , botto«_roM> ; 

nd  :=  cur_node(node_ln  +  (botto«_ro«  -  row)); 

NRITE(nd*'7txt) ; 

END; 

END 

ELSE 

BEGIN 

IF  lst\LEN6TH  >  1  THEN 
BEGIN 

curnd  :=  curr.dA. prior; 
curndA.newln  :=  1; 
st  :=  del _here (node_ln) ; 
node  In  :=  node_ln  -  1; 

GotoXY ( 1 , row) ;  ’ 

ClrEol; 

IF  row  >  1  THEN 
row  :=  row  -  1 
ELSE 
BE6IN 

GotoXY (1,1); 

NRITE(curndA.txt); 

END; 

END 

ELSE 

BE6IN 

DELETE (curndA.txt, 1 , str ing_l ength ) ; 

GotoXY (1, I); 

ClrEol; 

END; 

END; 

coluin  s=  1; 

END; 

mmtmmtmtttttmmtttmitmmtmtmmtmmmtimti 

«  PUTJ06ETHER;  CONCATENATES  STRING  NITH  CURRENT  NODE  STRING  t 

tmuunmmmmnumtutuuutmtumtmuututuuutu) 

FUNCTION  put_together (strl:  stringl60;  tx:  txstr > :  stringl60; 

VAR 

lens  INTEGER; 

BEGIN 

len  :  =  LENGTH (str 1) ; 
len  :=  len  +  1; 

INSERTttx, strl, len); 

IF  5trltlen-l]  <>  ’  ’  THEN 
INSERT!’  strl, len); 
put  together  :=  strlj 
END;  " 

{itmtmtttmmtmmumtttmttttmtmstmtmmtmmttt 
»  CHOP;  CUTS  THE  STR1N6  TO  SIZE  AND  RETURNS  THE  REMAINDER.  I 

tmtmttttttmttmttttttttittttttmtmttittttmtttmttmttm} 


FUNCTION  chop  (VAR  strl:  stnnglGO):  stringlGO; 

VAR 

i,J. 

count, 

len:  INTEGER; 

str2:  stringl60; 

BEGIN 

1  s=  (str ing_l enqth) ;  (find  out  box  iuch  needs  to  be  trapped) 
IF  coluan  <=  i  THEN 
J  :=  0 
ELSE 
j  1; 

IF  LENGTH (str 1 )  >=  i  THEN 
BE6IN 
REPEAT 
l  :=  l  -  I; 

IF  (i  <  colutn)  THEN 

j  :=  j  ♦  1; 

UNTIL  (strltil  «  ’  ’)  OR  (i  *  1); 
count  :=  LENGTH (str 1 )  -  i; 

IF  i  >  1  THEN 
BE6IN 

str2  :*  COPY (str 1 , li+1), count); 
cnt  (lag  cnt  (lag  +  1; 

END 

ELSE 

BEGIN 

l  :=  stnng.length; 
str2  :=  COPY (strl , i , 1); 

IF  coluan  >*  string.length  THEN 
BEGIN 

coluan  t-  ccluan  +  1; 
df  2; 

END; 

J  J  *  1; 

END; 

DELETE (str l,i, (count  +1)); 

IF  cnt .(lag  =  1  THEN 

cl(  :=  j;  {  count  -  (string  length  -  colutn);  } 

END 

ELSE 

BEGIN 

elf  coluan; 

DELETE(str2, 1,160); 

END; 

chop  :=  str2; 

END; 


{tumftitittttiimittittttttttiKimimttittittitmtttttttttmi 
I  NRAP;  PERFORMS  NR AP -AROUND  FUNCTION  t 
tttttmiitttttmttitttittmttmttttmtttittttttttuuttmtttuit) 


PROCEDURE  arap(rt:  INTEGER;  strl:  string!60) 


len, 

count, 

r»,d, 

i ,j,ndl:  INTEGER; 
str 2:  stnnglbO; 
nd:  nodeptr; 
done:  BOOLEAN; 

BEGIN 

nd  :=  curnd; 
ndl  :=  nodejn; 
ra  :=  row; 
cl  :  =  coluan; 
cntjlag  :=  0; 

IF  (rt  1  1)  THEN 

strl  :=  put  together(strl,curnd'.txtl 
ELSE 

strl  :=  CQPYIcurnd'.txt,  1 ,  LENGTH  (curnd-*  -  txt )  > ; 

IF  (LENGTH(strl)  >=  string  length)  THEN 
str2  chop(strl) 

ELSE 

DELETE(str2, 1,160); 
done  :•  FALSE; 

WHILE  (LEN6TH ( str 1 )  >  0)  AND  (done  =  FALSE)  DO 
BEGIN 

len  :=  LENGTH (str 1 1 ; 

IF  curnd'.nealn  -  1  THEN  (a  paragraph  Barker  in  this  line) 

BEGIN 

curnd'.txt  :*  COPY (str 1 , 1 , len ) ; 

IF  roa  <-  bottoaroa  THEN 
BEGIN 

Fastarite(colset,roasetl+roa,colour,blankstr); 

fastarite(colset,roasetl+rou,colour,curnd'.txt); 

END; 

IF  LENGTH (str2)  >  0  THEN 
BEGIN 

curnd'.nealn  0; 
insert_lst  (str2,  (nodejn  ♦  1)1; 
curnd'. next'. nealn  :=  1; 

IF  roa  <  bottoa_roa  THEN 
BEGIN 

GotoKYd,  (roa+1)); 

InsLine; 

Fastarite  lcolset,roaset+roa,  col  our,  curnd'.  next  \tx*'t 


ELSE 

DELETE  (strlJJBO); 

END 

ELSE  (no  paragraph  aarker  in  this  line) 

8E6IN 

curndA.txt  :=  COPY (str 1, 1, leni ; 

IF  row  <=  bottoa  row  THEN 
8E6IN 

SotoXY ( 1 ,row) ; 

NRlTE(curndA.txt) ; 

CIrEol; 

END-, 

IF  LENGTH (str2)  =  0  THEN 
BEGIN 

done  :=  TRUE; 

END 

ELSE 

BEGIN 

curnd  :=  curnd'.next; 
nodejn  :=  nodejn  ♦  1; 
row  :=  row  ♦  1; 

strl  :=  put_together(str2,curndA.txt); 

IF  LENGTH (str 1 )  str l ng_l ergth  THEN 

str2  :=  chop (strl) 

ELSE 

BEGIN 

done  :=  TRUE; 

curndA.txt  COPT (str 1,1, LENGTHf str 1 ) > ; 

IF  row  <-  bottoa  row  THEN 
BEGIN 

GotoXY ( 1 ,row) ; 

WRITE (curndA. txt) ; 

END; 

END; 

END; 

END; 

END; 

curnd  :=  nd; 
nodejn  :=  ndl; 
row  :=  rw; 
coluan  :=  cl; 
cntjlag  :=  0; 

END;  * 

{umuttttmtimtmtmiimtmmmmmttmtMtimmiutt 

I  DEL.CHJEFT;  DELETES  CHARACTER  TO  LEFT  OF  CURSOR  » 

PROCEDURE  del _ch_l e(t(dlt:  INTEGER); 

VAR 


st:  txstr: 


Ien2:  INTE6ER; 
up  In:  BOOLEAN; 
bigstr:  stnngl&O; 

BEGIN 

nd  cur nd ; 
ndl  :=  nodejn; 
r*  :=  ro*; 
upln  :=  FALSE; 

IF  dlt  =  1  THEN 
coluin  :=  coluin  +  1; 

IF  coluin  >  leFt_iargin  THEN 
coluin  :  =  coluin  -  I 
ELSE 

IF  Iron  =  top  roil  THEN 
BEGIN 

IF  curnd  =  1st''. First  THEN 
exit 
ELSE 

BE6IN  (top  row  but  not  the  First  node) 

nd  :=  curndA. prior; 
ndA.ne*ln  :=  0; 

IF  LEN6TH(curndA.txt)  =  0  THEN 
BEGIN 

st  :=  del  here(nodeln); 
lstA.lastA.ne»ln  :=  1; 

GotoX V ( 1 , tom) ; 

Del  Li ne; 

END; 

ndl  :=  nodejn  *  1; 

coluin  :=  LENGTH(nd'.txt)  ♦  1; 

upln  :=  TRUE; 

6oto)(T(l,roi); 

InsLine; 

NRITE(ndA.txt): 

END; 

END 

ELSE  (at  leFt  largin  but  not  top  roi 

BEGIN 

nd  :=  curndA. prior; 
nd'.newln  :=  0; 

IF  LEN6TH(curnd\txt)  -  0  THEN 
BEGIN 

st  :=  del Jiere (nodejn); 
lstA.lastA.neiln  :=  1; 

6otoXY ( 1 f  row) ; 

DelLine; 

IF  (bottoijoi  -  roi)  <=  (1st*. LENGTH  -  node  In)  THEN 
BEGIN 


(at  leFt  largin  but  not  top  roi) 


pc  CT  TOIVAXVWV  U  TO  ?V  » 7  7  *T 


7  "vV  •>  *7  ^>  ,'>  7\i*  ->  -  y 


POS  :  =  nodejn  +  (bottoa_row  -  row); 

6otaXY ( 1 , faotto«_row) ; 
teap  :=  cur_node (POS) ; 

NRITE(teap\txt); 

END; 

END; 

ndl  :=  nodejn  -  1; 
coluan  :=  LEN6TH(ndA.txti  +  1; 
rw  :=  row  -  1; 
upln  :=  TRUE; 

END; 

IF  apln  =  FALSE  THEN 
BEGIN 

len  :=  LEN6TH(curndA.txt)  -  coluan; 

IF  len  >  0  THEN 
BEGIN 

st  :=  COPY(curndA.txt,coluan+l,  len); 

DELETE (curndA.txt, coluan, len+1); 

INSERT(st,curndA.txt, coluan); 

GotoXY (coluan , row) ; 

HRITE(st); 

ClrEol; 

END 

ELSE 

BEGIN 

DELETE (curndA.txt, coluan, 1); 

6otoXY (col uan , row) ; 

NRITEC  ’); 

END; 

END; 

NHILE(curndA.newln  *  0)  AND  (upln  =  FALSE)  DO 
BE6IN 

DELETE (wrapper , 1, 160) ; 

wrapper  :=  C0PY(curnd\txt,!,LEN6TH(curnd\txt)>; 
len  :=  LEN6TH (wrapper )  + 1 ; 

INSERT(curndA.nextA.txt, wrapper, len); 

INSERT!’  ’ , wrapper , 1 en ) ; 
bigstr  :=  chop (wrapper ) ; 
len2  :=  LEN6TH(wrapper); 

IF  1 en2  >  ( len- 1 )  THEN  (if  wrap  around  is  needed) 

BEGIN 

GotoXY  < 1 ,row) ; 

WRITE (wrapper ) ; 

curndA.txt  :=  COPY (wrapper , 1 , 1 en2> ; 

IF  LENGTH (bi gstr )  =  0  THEN 
BEGIN 

curnd\newln  :=  1; 

st  :=  del_here(node_ln  ♦  1); 

GotoXY ( 1 , row  ♦  1); 

DelLme; 

IF  (bottoa_row  -  row)  <=  (lstA. LENGTH  -  nodejn)  THEN 
BEGIN 


PQS  :=  nodejn  +  (bottoa  row  -  row); 

6otaXY ( 1 , botto#_roM> ; 
tesp  curnode (POS) ; 

WRITE  (te»p'* .  txt) ; 

END; 

END 

ELSE 

BE6IN 

curndA.nextA.txt  :=  COPY (bigstr , 1 , LENGTH (b lgstr ) ) ; 
GotoXY ( 1 , row  +1); 

ClrEol; 

GotoXY ( 1 , row+1 ) ; 

WRITE (curndA. next'. txt) ; 

END; 

curnd  curnd'.next; 
row  rot*  +  1; 
nodejn  :=  nodejn  +  1; 

END 

ELSE 

up  1 n  TRUE; 

END; 

curnd  :=  nd; 
nodejn  :=  ndl; 
rot*  :=  rw; 

END; 

{ttmtttuumuttiuttmttttttmmtuttttsutttmmmmum 

I  ENTERKEY ;  ENDS  LINE,  INSERTS  PARAGRAPH  MARKER,  AND  MOVES  CURSOR  I 
I  AND  ANY  REMAINING  TEXT  TO  NEXT  LINE.  I 

tumnumnttmnnmmnmmmmmtunnmttmmnnt) 

PROCEDURE  enterjey; 

VAR 

len  :  INTEGER; 

BEGIN 

IF  coluin  =  1  THEN  (if  cursor  is  at  colunn  11) 

BEGIN 

insert Jst(”, nodejn);  (insert  a  node  in  linked  list  ) 

IF  rot*  <>  botto*  rot*  THEN  (if  cursor  is  not  at  bottoi  row  ) 
BEGIN 

InsLine;  (insert  a  blank  line  in  window  ) 

row  :=  row  +  1;  (increment  row  number  ) 

nodejn  :=  nodejn  +  1;  (increment  node  line  number  ) 
curnd  :=  cur  nodelnode  In);  (get  pointer  to  current  node) 

END 

ELSE 

BEGIN 

InsLine; 

GotoXY (1,1); 

DelLine; 

GotoXY ( col uon ,  row) ; 


nodejn  :=  nodejn  +  1; 
curnd  :=  cur _node(node_I n ) ; 

•fastwrite  (colset  ,rowsetl+l,colour  .curnd^.txt) ; 

END; 

END 

ELSE 

BEGIN 

len  :=  LENGTH (curnd A . txt ) ; 

IF  colu»n  <=  len  THEN  (if  cursor  is  not  at  colu«n  one) 

BE6IN 

wrapper  :=  CGPY(curnd*.txt,colu«n,  (get  reaamder  of  string) 
len  -  coluan  +  1); 

DELETE(curnd*.txt, coluan,  (delete  reaainder  of  node  str  ) 
len  -  coluan  +  1); 

GotoXYfcoluan, row) ; 

ClrEol; 

IF  curnd*. fiewln  =  1  THEN 
BEGIN 

insert  Jst  (wrapper,  nodejn  +  1); 

IF  row  <  bottoajow  THEN 
BEGIN 

GctoXY ( 1 , row+1 ) ; 

InsLine; 

f astwri te (colset , rowset+row, colour , curndA. next*. txt ) 
END; 

END; 

curnd  :s  curndA.next; 
coluan  :=  1; 

IF  row  <  bottoarow  THEN 
row  :=  row  +  1 
ELSE 
BEGIN 

GotoXY (1,1); 

DelLine; 

GotoXY (1, row); 

IF  curndA. prior*. newln  =  1  THEN 
f astwrite (colset ,rowsetl+row,coIour,curnd*.txt); 

END; 

nodejn  :=  nodejn  ♦  1; 

IF  curnd*. prior*. newln  =  0  THEN 
wrap ( 1 , wrapper ) ; 
curnd*. prior*. newln  :=  1; 

END 

ELSE  (cursor  is  one  past  end  of  str  ) 

BEGIN 

coluan  :=  1; 

insert  Jst  (” ,  nodejn  +  1); 

IF  row  <  bottoa_row  THEN 
row  :=  row  +  1 
ELSE 
BEGIN 

GotoXY (1,1); 

DelLine; 

END; 


BotoXY (caluan,roM) ; 

InsLine; 

nodejn  :=  nodejn  +  1; 
curndA.newln  :=  1; 
curnd  :=  curndA.next 
END; 

END; 

END; 

{tmtmmmmmmttmtmtttmmmmitmtmtttmtttmt 

«  ENTER  TEXT;  HANDLES  THE  INPUT  OF  TEXT  CHARACTERS  I 

mttmmmtmmmmmmmmttmmmmmtmmmmt} 

PROCEDURE  enter Jext; 

VAR 

len:  INTEGER; 

BEGIN  (text) 

IF  msertad  THEN 
INSERT (ch, curndA. txt , col u«n) 

ELSE 

BE6IN 

INSERT (ch,carndA.txt,colu«n) ; 

DELETE(curndA.txt,coluan+l,l); 

END; 

IF  (LENGTH (curndA.txt)  <  stringjength)  THEN 
BEGIN 

f  astwri  te  (col  set ,  rowset  1+r ox,  col  our ,  curndA.  txt ) ; 
column  :=  coluan  +  1; 

END 

ELSE 

BEGIN 

colu«n  :=  coluan  +  1; 
wr ap(0, wrapper); 

IF  coluan  >  (LENGTH (curndA. txt )+l)  THEN 
BEGIN 

curnd  :=  curndA.next; 
nodejn  :=  nodejn  +  1; 
coluan  :=  cH; 

IF  coluan  <  1  THEN 
coluan  :  =  1; 

IF  row  <>  bottoa_row  THEN 
row  :=  row  +  1 
ELSE 
BE6IN 

6otoXy(l,bottoa_row); 

NRITE(curndA.priorA.txt); 

ClrEol; 

GotoXY  < 1 , 1 > ; 

DelLine; 

GotoXY (1 ,bottoa_row) ; 

NRITE(curndA.txt); 

END; 


(imtitttmttmmttmtmmttmmttmmmtmmttmtttttt 
I  HELP .SCREEN;  I 

ttmtuttmmittumumtutimmtmtttmmmtttmtmmt} 

PROCEDURE  help.screen; 

VAR 

x , y , 1 ne  :  INTE6ER; 

BEGIN 

x:=NhereX; 

y:=WhereY; 

■kttin  (coluan,  roM,  colu«n+20,  row+5,  bl  ue,  1  ightgray,2)  j 
Window (1,1,80,251; 
cur soron (FALSE); 

ClrScr; 
lne  :=  1; 

fastwrited, lne, hlpcolor,’  itt  HELP  SCREEN  FOR  TEXT  EDITOR  III’); 

lne  :=  lne  +  2; 

f astwr ite (1 , 1 ne, hlpcolor , ’  CURSOR  CONTROL:’); 
lne  :  =  lne  +  1; 

f astwri te ( 1 , 1 ne, hlpcol or , '  ==============’ ) • 

lne  :=  lne  +  1; 

fastwrited,  lne,  hlpcol  or,’  Arrow  keys  -  Move  one  character  or  line  at  a  tiwe.’); 

lne  :  =  lne  ♦  1; 

Tastwrited, lne, hlpcolor,’  <PgUp>,  <PgDn>  -  Hove  one  window  page  at  a  tiwe’); 
lne  :=  lne  +  1; 

fastwrited, lne, hlpcolor,’  Tab  Key  -  Hove  to  next  blank  space  to  the  right’); 

lne  :=  lne  +  1; 

fastwrited, lne, hlpcolor,’  <Shift>/<Tab>  -  Hove  to  next  blank  space  to  left’); 
lne  :=  lne  +  1; 

fastwrited, lne, hlpcolor,’  <Ctrl >/->  -  Hove  to  end  of  line’); 

lne  :=  lne  +  1; 

fastwrited, lne, hlpcolor,'  <Ctrl>/<-  -  Hove  to  beginning  of  line’); 

lne  :=  lne  ♦  1; 

fastwrited, lne, hlpcolor,’  <Ho«e>  -  Hove  to  beginning  of  file’); 

lne  :=  lne  +  1; 

fastwrited, lne, hlpcolor,’  <End>  -  Hove  to  end  of  file’); 

lne  :=  lne  +  2; 

fastwrited, lne, hlpcolor,'  EDITING  FUNCTIONS: 'I; 

lne  :=  lne  +  1; 

f astwrite ( 1 , lne, hlpcolor , ’  =========5=======’ ) ; 

lne  :=  lne  +  1; 

fastwrited, lne, hlpcolor,’  <Bksp>  -  Delete  character  to  left  of  cursor'); 

lne  :=  lne  +  1; 

fastwrited, lne, hlpcolor,’  <Del>  -  Delete  character  at  cursor’); 

lne  :=  lne  ♦  1; 

fastwrited, lne, hlpcolor,’  <Ctrl >/<Bksp>  -  Delete  line’); 

lne  :=  lne  +  1; 

fastwrited, lne, hlpcolor,’  <Ctrl >/<End>  -  Delete  rest  of  line’); 


■fast»rite(i,lne,hlpcolor, ’  <Enter>  -  End  paragraph,  »ove  cursor  to  line’); 

lne  :=  lne  +  1; 

fastwrite(l,lne,hlpcolor,’  <Ins>  -  Toggle  between  insert/  overwrite  aode’) 

fastwrite(26,23,31,’  PRESS  SPACEBAR  TO  RETURN  ’); 

waitkey(no); 

rawin; 

Hindow(xl+l,yl,x2,y2); 

6otoXY(x,y); 

TextBack6round(back); 

cursoron(TRUE); 

END; 

{mmttmmmtmmmtmmtummtmmmmmtmtmn 

I  COPROCESSOR;  t 

tmnmttmtmmtmmnttnmtttmutmttmmmtummi) 

PROCEDURE  c«d_processor; 

VAR 

ord_char  s  INTEGER; 
finished  :  BOOLEAN; 

BE61N 

finished  :=  FALSE; 

REPEAT  (until  Finished) 

READ(Kbd,ch>;  (standard  keyboard  does  not  echo  in  Turbo.  } 
ord_char  :=  ORD(ch);  (get  the  ordinal  value  of  the  character  read) 

IF  (ord  char  <)  escape)  THEN 
BE6IN 

CASE  ord_char  OF 
tab  :  tab_to_blank; 

bksp  :  del_ch_left(0); 

enter  :  enter_key; 

ctrl_bksp  :  deljine; 

ELSE 

enter_text;  (handles  text  input  froe  keyboard) 

END; 

END 

ELSE 

BEGIN  (ord_char  =  Escape;  look  for  function  key) 

READ (Kbd , ch) ; 
ord_char  :=  ORD(ch); 

CASE  ord_char  OF 

ins  :  i ns_aode ; 

s_tab  :  tabjeft;  (tab  left  to  first  available  space) 


right  : 

cur_right; 

up  : 

curjip; 

down 

cur _do*n; 

ctrljeft  : 

coluan  :=  left _aarg i n ; 

Ctrl _right: 

coluan  :=  LENGTH (curnd^ . txt >  ♦  1; 

del  : 

del_ch_lef t ( 1) ; 

ctrl_end  : 

del  _rest_l  ine; 

pgdn  : 

page_do*n;  Cdi spl ay_next_page> 

pgup  : 

page_up;  (display  jrevious_page) 

ho»e  : 

go_to_top; 

endkey  : 

go_to_end; 

fl  : 

help_screen; 

alt  f9  : 

BEGIN 

outpt  :=  0; 
finished  :=  TRUE; 
cancel ed_aessage  ;=TRUE; 

IE  exist (’ D: \«ai 1 \in. f i 1 ’ )  THEN 
BEGIN 

Assign  <erase_fi  1 ,  ’O:\aail \in.-fil  ’ ) ; 

CLOSE (er ase_f i 1 ) ; 

Erase(erase_fil); 

END; 

END; 

flO  :  BEGIN 

finished  :=  TRUE; 

END; 

END;  (second  nested  case) 

END;  (if  escape  character) 

GotoXY(colu»n,ro«); 

UNTIL  finished;  (end  of  the  repeat  statement) 

END; 

(mmttmtmmttmmmttmmmmmmmmmmmtmt 

«  EDITOR;  THIS  IS  THE  MAIN  PROCEDURE.  ALL  THE  EDITING  FUNCTIONS  I 
i  ARE  CONTROLLED  BY  THE  CASE  STATEMENTS  BELON.  t 

mmmmmmmtmummmtmmmmtmtummmmtt} 

PROCEDURE  editor; 

BEGIN  (the  aain  brain  for  electronic  noainal  group  prograa) 
initialize; 

read_input_file(edt_file); 


pre_popup_routines; 
display_text(l); 
sho_iode; 
c»d  jrocessor; 

CASE  outpt  OF 
1:  re_rite_txt(edt  Jile); 
2:  app_rite_txt(edt_file); 
END; 

END;  (procedure  Editor) 


WMWW7 


05* 


(nnnmnmuxmuuumunumuummuuummmuu 

t  STRIN6_READER. INC  Bill  Saints 

t  (modified  by  Gary  HcAlum  tor  EMAIL,  July  1987 

I  The  String_Reader  creates  a  window  with  the  specified  dimensions. 
t  It  reads  a  list  of  strings  froa  a  text  file  and  displays  a 
I  highlighted  cursor.  Mhen  you  press  ENTER,  it  returns  the  string 
t  froa  the  cursor  position.  If  the  ESCAPE  key  is  pressed,  the 

t  string  ’ESCAPE’  is  returned.  The  window  is  removed  when  a 

t  selection  is  aade. 

I  The  following  parameters  must  be  passed  in  the  call: 

I  String_Reader  (xl,  -  left  column  of  window  (  >1  ) 

I  yl,  top  line  of  window  (  >1  ) 

I  x2,  -  right  column  of  window  (  < BO) 

t  y2,  -  bottom  line  of  window  (  (25  ) 

I  back,  -  background  color  of  window 

I  fore,  -  color  of  text  in  window 

I  fback,  -  bgd  color  of  border  (-1  =  no  border) 

t  ffore,  -  dr  of  line  in  border 

l  Bor  :  integer);  -  lines  in  border  (0,1, or  2) 

I  edtjile:  FilStr;  -  name  of  file 

t  Here  is  a  program  that  calls  the  editor  into  a  full  screen. 

I  Program  lexteddnput, Output); 

t  include  STRHENU. INC 

t  Begin 

t  Cursor On (false); 

I  String_Reader (2, 2, 79, 24, blue, white, red, blue, 2, ’Filename’); 

I  CursorOn(true); 

t  End. 

tmmtmmtmmmmtmmmumtttmummttmtmm 

Type 

fil_len_66  =  String[663; 

LString  =  String[721; 

Function  exst(user_file:  fil_len_66):  boolean; 

var  fil  :  file; 

Begin 

Assign (fil ,  user_file); 

{*1-1 

reset(fil); 

1*1+) 

exst  :=  (IQresult  =  0); 
dose(fil); 


{mmmtmmmmmmtmtttmtmmmtmmmmmt 

I  HINDOIKORNERS;  I 

tmmmmmummmmmmmtmmtmmtitttmmt} 

Procedure  »ind_corners(Var  xl,yl,x2,y2:  integer); 


Upper_LeftJ  :  Byte  Absolute  Dseg: $0004; 
Upper_Le-f t_Y  :  Byte  Absolute  Dseg: $0005; 
Loner  _RightJ  :  Byte  Absolute  Cseg:(16A; 
Loner_Right_Y  :  Byte  Absolute  Cseg;fl68; 

Begin 

xl  :=  Upper  Lef t_X+l; 
yl  :=  Upper _Left_Y+l; 
x2  :=  Loner  Right  X; 
y2  Loner  Right  V; 


{  The  6ET_ATTRIB  procedure  returns  the  foreground  color  attribute  1 
{  (0-31)  and  the  background  color  attribute  (0-7)  at  the  requested  ) 
{  cursor  location.  } 
{  Copyright  1986,  1987  by  Shenandoah  Software  Technologies  } 


ax,  bx,  cx,  dx,  bp,  si,  di,  ds,  es,  flags  :  integer 
end; 

PROCEDURE  getattrt  x,  y  :  integer; 

var  fattr,  battr  :  integer); 


savex,  savey,  blinking,  intensity 
begin 

if  not  (y  in  Cl. .251)  then  exit; 
if  not  (x  in  Cl.. 80])  then  exit; 
savex  :=  nherex; 
savey  :=  nherey; 
gotoxy(x,y); 
regs.ax  :=  $0f 00; 
intr((10,regs); 
regs.ax  :-  (0800; 
intr((10,regs); 
gotoxylsavex, savey); 
if  (regs.ax  and  (8000)  -  (8000  then 
blinking  :=  1 
else 

blinking  :=  0; 

if  (regs.ax  and  (0800)  =  (0800  then 


:  regpack; 
:  integer; 


{  Validate  parameters  } 
{  save  original  cursor  location  } 


{  get  current  page  in  BH  } 
{  get  attribute  in  AH  } 
{  set  blinking  indicator  } 


{  set  intensity  indicator  } 


intensity  :=  1 
else 

intensity  :  =  0; 

{  set  foreground  and  background  attribute  fields  ) 
fattr  :=  (fregs.ax  and  $0700)  div  256)  *  (intensity  $  8)  + 

(blinking  t  16); 

battr  :  =  (regs.ax  and  $7000)  di v  4096 
end; 


=  POP  KINDOK;  Opens  a  window,  saving  the  background,  and  = 
=  returns  a  pointer  to  the  nindon  infor*ation.  Para»eters= 
=  are  as  follons:  - 

=  sexl  -  U  (upper  left  corner)  = 

=  nhyl  -  Y1 

=  sex2  -  U  (loner  right  corner)  = 

=  nhy2  -  Y2  * 

=  back  -  background  color  = 

=  fore  -  foreground  color  = 

=  bbg  -  background  border  color  s 

=  bfg  -  foreground  border  color  = 

=  Bor  -  border  type:  0  =  no  border  = 

=  1  =  single  line  - 

=  2  =  double  line  = 

=  3  :  solid  border  (fg  color )  1 

=  10,11,12  =  different  hatches  1 

. . } 

Type 

ninfo  -  *uinpop; 
ninpop  =  record 

xx  :  integer; 
yy  :  integer; 
xl,  yl,  x2,  y2  :  integer; 

Curxl,  Curyl,  Cur x2,  Cury2  :  integer; 
bg,  fg  :  integer; 

csbg,csfg,cbbg,cbfg  :  integer; 

restor  :  rayptr; 

bor  :  integer; 

oldx  :  integer; 

oldy  :  integer; 

end; 


{ . . 

=  P0PJIIND0K; 


) 


Function  Pop _Windonlsexl,uhyl,sex2,uhy2, back, fore, bbg, bfg, Bor  :  integer):  ninfo; 
Var 

Thisnin  :  ninfo; 

Bgdr, 

Fgdr  :  integer; 

3. 


=  UNPOP;  Removes  a  window  fro*  screen  and  deallocates  the  = 
=  window  record.  Mill  return  control  to  window  that  was  = 

=  active  when  this  window  was  opened.  After  doing  Unpop  - 

=  to  a  window,  you  *ust  use  Pop_Nindow  to  create  it  again  * 

=  before  it  can  be  used  again.  s 

. - . - - - } 

Procedure  Unpop (Thiswin  :  winf o) ; 

Begin 

xfree  :=  true; 

putx  (Thiswin'.Oldx, Thiswin*. 01 dy, Thiswin*. restor); 
xfree  :*  false; 

window (Thiswin*. xl, Thiswin*. yl, Thiswin*. x2, Thiswin', y2); 
textbaclrground (Thiswin*. bg) ; 


textcolordhiswin'.fg); 

gotoxy(This*nn‘.xx,Thisi»inA.yy); 

dispose(Thismn); 

End; 

{ - 

=  SETCOLOR; 

- - - } 

Procedure  Setcolor (bg, tg:  integer); 

Begin 

textbackground(bg) ; 
textcolor  (f  g) ; 

End; 

Type 

St72  =  StringE723; 

function  Tri»L(InpStr:  LString):  LString; 

{  strip  leading  spaces  froe  a  String  } 

Var  i,l en  :  Integer; 

Begin 

len  :=  length(lnpStr); 

1  :=  1; 

While  (i  <=  len)  and  (InpStrlil  =  ’  ’)  do 
i  :=  i  +  1; 

Tri«L  :=  Copy ( InpStr , i , len-i +1 ) 

End; 

function  TrieRdnpStr:  LString):  LString; 

{  strip  trailing  spaces  fro*  a  String  ) 

Var  l  :  Integer; 

Begin 

l  :=  1 ength ( InpStr ) j 
While  (l  >=  1)  and  (InpStrlil  =  ’  ’ )  do 
i  :=  i  -  1; 

TruR  :=  Copy  (InpStr  ,l,i) 

End; 


Type 

FilStr  =  String[721; 

{mtttmmttmtmmttmtttmmttmitmmmmtttimmiumii 

I  String  Reader;  THIS  IS  THE  MAIN  PROCEDURE.  ALL  THE  EDITIN6  FUNCTIONS  I 
»  ARE  INCLUDED  IN  THE  PROCEDURE.  I 

mtmmtmmmtmmtmmmmtutttuumtttmmmmtmm} 

Function  String_Reader(xl,  yl,  x2,  y2,back, fore, f back, f fore:  integer; 

Bor  :  integer; 

edt_file  :  FilStr) :Filstr; 

Const 

(  refer  to  Turbo  Pascal  version  J.O  appendix  K  for  keyboard  return  codes) 


FI 

=  59 

F10 

=  68 

Enter 

=  13 

Escape 

=  27 

LEFT 

=  75 

RI6HT 

=  77 

UP 

=  72 

DONN 

=  80 

HOME 

=  71 

ENDKEV 

=  79 

PgUp 

=  73 

PgDn 

=  81 

leftjiargin 

top_row 


Type 
Str  2 
Txstr 


(function  keys,  arrays,  etc.  use  an  ascii  escape  sequence) 
(left  arrow  key) 

(right  arrow  key) 

{up  arrow  key) 

{down  arrow  key) 

(ho*e  key;  go  to  top  of  file,  or  first  page) 

{go  to  page  with  last  line  of  text  on  it.  ) 

{goto  previous  page) 

{goto  next  page) 

=  1;  (beginning  colu»n  of  each  line.) 

=  1;  {beginning  row  of  each  page  starts  here.) 


=  StringC2] ; 

=  Strmg[80); 


{limit  RECORD  FOR  LINKED  LIST  NODE  11111111111) 

NodePtr  -  "Node; 

Node  =  record 

txt  :  Txstr; 

next  :  NodePtr; 

prior  :  NodePtr; 

newln  :  integer; 

end; 

{limit  RECORD  FOR  LINKED  LIST  HEADER  limtlttll) 

List  =  "Head; 

Head  =  record 

length:  integer; 
first:  NodePtr; 

Last:  NodePtr; 

end; 


readwin  :  Ninfo; 

fil  :  FilStr; 

curnd  :  NodePtr; 

ReadLst  :  List; 
userjile  :  FilStr; 

ch  :  char;  {ch  =  trapped  character  fro*  keyboard.  ) 
stack_counter,  {keep  track  of  open  windows  for  closing.) 

»* 

_col  or , 

Revcolor, 

colset, 

rowset, 

•axjines,  botto»_row,  {*ax_lines  =  botto*_row.) 
colu»n,  row  :  integer; 

stringjength, 
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right  _aargin, 
node  In 


:  integer; 


(nuaber  of  node  in  linked  list) 


{tmmmmtmmmmtmmmumummtmtttmutm 

I  CUH  NODE;  RETURNS  A  PTR  TO  THE  CURRENT  NODE  Of  LINKED  LIST  t 

ntmhmmttmmmmmtmmmmttnmtttmtumw 

Function  curnodetpos:  integer):  NodePtr; 

Var 

i:  integer; 
nd:  NodePtr; 

Begin 

nd  :=  ReadLst*.first; 
for  i  :=  2  to  pos  do 
nd  :=  ndA.next; 
curnode  :=  nd; 

End; 


{ttmmtttmtmitimtmtttmmmttmmtmimimtmt 

t  CRT  DBL;  CREATES  HEADER  FOR  LINKED  LIST  FOR  TEXT  LINES  t 

uutmnumtmmtumnmttmmmnmmtmmtmm 

Function  crtdbl:  List; 

Var 

thishead:  List; 

Begin 

neu(thishead); 
thishead*. length  :=  0; 
thishead*. first  :*  nil; 
thishead*. last  s=  nil; 
crtdbl  i-  thishead; 

End; 

{mtttttmmmmmtmtmtttmtitttttttttitmmtttimi 
t  INST  NODE;  CREATES  A  NEW  NODE  FOR  LINKED  LIST  t 

tutttmmtttumtttuttttutmiuttttttttmitttmtuttttt} 

Function  ins_node(dat:  txstr;  prev,  nxt:  NodePtr):  NodePtr; 

Var 

thisone:  NodePtr; 

Begin 

neu(thisone); 

thisone*. txt  i-  Copy (dat, lf Length  (dat) ) ; 
thisone*. prior  :=  prev; 
thisone*. next  :*  nxt; 
thisone*.neuln  :*  1; 
ins_node  :=  thisone; 

End; 


{mtmmtmtmitmmttmmmtmmtmmmmmm 

t  APP  LST;  APPENDS  A  NODE  ONTO  LINKED  LIST  t 

itmimmmmtmmtttmmimmmiimmtmtmtttt} 

Procedure  ap_list(dat:  txstr); 

Var 

thisone:  NodePtr; 

Begin 

if  ReadLstA. first  =  nil  then 
begin 

thisone  :=  ins_node(dat,nil,nil); 

ReadLstA.last  :=  thisone; 

ReadLstA. first  :=  thisone; 
end 
else 
begin 

thisone  s=  ins_node(dat,ReadLstA. last, nil); 

ReadLstA.lastA.next  :=  thisone; 

ReadLstA.last  :=  thisone; 
end; 

ReadLstA. length  :=  ReadLstA. length  +  1; 

End; 

{tttttmtttmtmttttttttttttutttttttttttttmttttmtmmmmtmtu 

t  READ  INPUT  FILE;  READS  TEXT  FROM  EXISTING  FILE  INTO  LINKED  LIST.  t 
I  IF  FILE  DOESN’T  EXIST,  JUST  CREATE  ONE  NODE  NITH  BLANK  IN  IT.  $ 

ttmmmmmmmutmmmmmmtmmmmmmittmmtu) 

Procedure  read_infile(user_file:  FilStr); 

Var 

instr  s  string[201;  (string  of  20  chars) 

Begin 

ReadLst  :=  crtdbl; 
lock; 

reset(idlist); 
instr  :=  ’BROADCAST’; 
apjist  (instr); 
ctr  :=  1; 

while  ctr  in  II. .nodes!  do 
begin 

seek(idlist,ctr-l); 
read (idl ist, an_entry ) ; 
with  an_entry  do 
begin 

if  (naae  <>  blanks20)  then 
begin 

instr  naae; 
apjistlinstr); 
end; 
end; 

ctr  s*  ctr  ♦  I; 


close (idlist); 
unlock; 

End;  (readjnfile) 

{ttmtmmmmmmtmtmmtmmmmmtutmttmmmtt 

t  PRE  POPUP  ROUTINES;  I 

ttmmtmmmttmtmmmmmttttmmtmmmttmmmt) 

Procedure  prejopup; 

Var 

proeptxl  :  integer; 

Begin 

Readein  :=  Pop_Hi ndow ( X 1-1 ,  ¥1-1,  X2+1,  ¥2+1, back, fore, fback,  ffore,Bor); 
NindoM(xl,yl,x2,y2); 

proeptxl  s=  xl  +  trunc ( ( (x2-xl)-14) /2)  -  1; 
fasten te(proeptxl,Y2, (fbacktl6)+ffore,’  ESCAPE  *  Suit 
fasturite<proeptxl-l,Yl-2,(fbackll6)+ffore,’  ENTER  *  Choice 
End;  {procedure  prejopup) 

{ftttimmttmtmmmitttttmtmimmtmmtmimitttttmmtt 

I  INITIALIZE;  t 

tmmtmuummmmnmmtummmmmtmmmmmtmw 

Procedure  init; 

Var 

teepclr  :  integer; 

Begin 

string_length  :=  (x2  -  xl)-l; 
colset  :=  xl-1; 
roeset  s*  yl  -  2; 
eaxjines  s=  (¥2  -  Yl)  +  1; 
rightjargin  :=  stringjength  ♦  1; 
bottonjoe  s*  eaxjines; 

coluen  :>  leftjargin;  (current  y  position  for  60T0IVJ 

roe  :*  top_roe;  (current  x  position  for  6QT0XY) 

nodejn  :a  1;  (beginning  pagejiuffer  array  subscript  value.  ) 
.color  :*  (backll6)+fore; 

if  fore  >  7  then 
begin 

teepclr  :*  fore  -  8; 
if  teepclr  *  &  then 
teepclr  :»  7; 
end 
else 

teepclr  :*  fore; 

Revcolor  »*  (teepclrllA)+back 

End;  (procedure  init) 


{ttttuttimtttimimtttttmttttttttmttttttmtmittsstmtmmtmt 
t  DISPLAY  TEXT;  DISPLAYS  A  PAGE  OF  TEXT  STARTING  KITH  NODE  I  node  nue.  t 
titittittumtttttttmtuttmtttttttimttttttiiittttmmmtttttittm} 


Procedure  dispjext  (nodejiue:  integer); 


xj,  x_2>  y _1,  y_2, re, endjine,  startjine,  i:  integer; 
nd:  NodePtr; 


Begin 

endjine  :=  (eaxjines); 

startjine  :=  (endjine  -  (eaxjines  -  11); 

eind_corners(xJ,re,x_2,y_2); 
xj  :=  pred(xj); 
re  s*  pred(re); 

drscr;  (clear  off  any  old  text.) 

(display  the  appropriate  text  on  the  screen.) 
nd  :=  curnode(node_nua); 
for  i  startjine  to  endjine  do 
begin 

if  nd  <>  nil  then 
begin 

fasterite(xJ,re,_color,ndA.txt); 
nd  :=  ndA.next; 
end; 

re  :»  re  ♦  1;  (increment  for  the  next  roe.) 

end; 

curnd  :=curnode  (nodejn); 
gotoxy(coluen,roe); 

End; 


{tmttttttttttmtttutmuttttmtmimmmmutimttttttttttmtt 

t  PAGE  JOHN;  DISPLAYS  NEXT  SCREEN  PA6E  t 

tmtmtmtttttttmuttmttttmtttmtttmittmtmmttttmtmtt} 

Procedure  pagedoen; 

Var 

nodejiue:  integer; 

Begin 

if  nodejn  <  ReadLstA. length  then 
begin 

if  ((nodejn  +  eaxjines)  <*  ReadlstA. length)  then 
begin 

nodejn  :s  nodejn  ♦  eaxjines; 
nodejiue  :=  nodejn  -  roe  ♦  1; 
end 
else 
begin 

if  ReadLstA. length  >=  eaxjines  then 
begin 

if  (eaxjines  -  roe)  <  (ReadLst*. length  -  nodejn)  then 
begin 

node_nue  :■  nodejn  ♦  (eaxjines  -  roe)  +1; 

if  ((ReadlstA. length  -  nodejn)  -  (eaxjines  -  roe))  <  roe  then 


begin 

roN  :=  (ReadLstA. length  -  nodejn)  -  (aaxjines  -  roe); 
nodejn  :=  ReadLstA. length; 
end 
else 
begin 

nodejn  :=  nodejn  ♦  eaxjines; 
end; 
end 
else 
begin 

node_nua  :=  ReadLstA. length  -  roe  +  1; 
nodejn  :=  ReadLstA. length; 
end; 
end 
else 
begin 

nodejiua  :=  ReadLstA. length  *  roe  ♦  1; 
nodejn  :=  ReadLstA. length; 
end; 
end; 

dispJext(node_mia); 

f  aster i te (colset , roeset+roe, Revcol or , curndA . txt ) ; 
end; 

End; 

uttttmmtmtttttttttutttttmtimtttmmttmtmttmttmtttmt 

I  Pft6E_UP;  DISPLAYS  PREVIOUS  SCREEN  PA6E  I 

ttmmmmttttmtiuttsmtmtttttttitmmtmmmmmttmm} 

Procedure  pageup; 

Var  nodejiua:  integer; 

Begin 

if  nodejn  >  1  then 
begin 

if  ((nodejn  -  aaxjines)  >  0)  then 
begin 

nodejn  :=  nodejn  -  aaxjines; 
coluan  :=  1; 
if  nodejn  <  roe  then 
roe  :=  nodejn; 
nodejiua  :=  nodejn  -  roe  ♦  1 
end 
else 
begin 
roe  :=  l; 
nodejn  i*  1; 
nodejiua  :«  1; 
end; 

dispjext  (nodejiua); 

f  aster i te (col set , r ouset+r oe, Revcol or , curnd A . t x  t ) ; 
end; 


mmmmtmmtmmmtummmmmmtmtmmmttmm 

t  goto  TOP;  MOVES  CURSOR  TO  FIRST  LINE  IN  FILE  t 

tumtmmmnntmtnnutmtmtmnmtntmmnmtttmtt) 

Procedure  gotojop; 

Begin 
roa  s»  1; 
node_ln  i-  1; 
curnd  :=  ReadLst*. first; 
disptext  ( 1 ) ; 

fastarite(colset,rouset+roa,Revcolor,curnd*.txt); 

End; 

{imtmmmmmmmmmmmmmtmmmmttmttmt 

t  goto  END;  MOVES  CURSOR  TO  LAST  LINE  OF  FILE  t 

tmmttmmmmmmmtmmttmtmtmmmtmttmm} 

Procedure  goto_End; 

Var 

nodenua:  integer; 

Begin 

nodejn  ;=  ReadLstA.  length; 
nodejiua  :=  (ReadLstA. length  -  aaxjines)  +  1; 
curnd  :=  ReadLst*. last; 
if  nodejiua  <  1  then 
begin 

nodejiua  :*  1; 
roe  s-  ReadLstA. length; 
end 
else 

roe  :=  botton_ro#; 
disp_text(node_nua); 

f aster itefcolset, roeset+roa,Revcolor, curnd*. txt); 

End; 


uttmmtmttttmmmmmttmmtmmttmittmtitm 
I  curUP;  MOVES  CURSOR  UP  ONE  LINE.  t 

tttmtmttmttttmimtmtuttmttmiitmtmttttttmtt} 

Procedure  curUp; 

Begin  (user  aants  to  aove  up  a  line) 
if  nodejn  >  1  then 
begin 
click; 

f astar i te (col  set , roeset+r oa, _col or , curnd*. txt ) ; 
nodejn  s«  nodejn  -  1; 
curnd  s*  curnd*. prior; 
if  (roa  >  top.roa)  then 
begin 

roa  s*  roa  -  1; 

f  astar i te (col set , roaset +roe, Revcol or , curnd* . tx  1 1 ; 

end 


if  nodejn  >  0  then 
begin 

gotoxy(l,roH); 

Inline; 

f  astwi  telco!  set ,  r onset +roe,  Revcol  or ,  curndA .  txt) ; 
end; 
end; 

End; 

imumtmntnmmtnnmnmnnmmmnnmtmtm 

t  curDOHN;  HOVES  CURSOR  DOWN  ONE  LINE  t 

tumtmtuuttmtmmtmmtummuummmmmw 

Procedure  curdowi; 

Begin 

if  nodejn  <  ReadLstA. length  then 
begin 
click; 

fastHrite(colset,roHset+roH,_color,curndA.txt); 
nodejn  :=  nodejn  +  1; 
curnd  :=  curndA.next; 
if  (ro*  <  bottoa_roN)  then 
begin 

row  s*  row  ♦  1; 

fastHrite(colset,roHset+roH,Revcolor,curndA.txt); 

end 

else 

begin 

gotoxy(l,l); 

DelLine; 

f  aster i te (col set , roeset+r oh, Revcol or , curndA. txt) ; 


,u  .»t  , 


la*  *a*  •a"  #a*  I 


if  (ord_char  <>  Escape)  then 
begin 

if  ord_char  =  Enter  then 
begin 

Unpop (readnin); 

Finished  :=  true; 
end; 
end 
else 
begin 

if  keypressed  then 

begin  (ord_char  =  Escape;  look  for  function  key) 
read (kbd, ch) ; 
ordjhar  :=  ord(ch); 
case  ord  char  of 


UP 

OWN 

PgDn 

PgUp 

Hose 

EndKey 

F10 


cur Up; 
cur down; 
pagedoun; 
pageup; 
goto_Top; 
goto_End; 
begin 

Unpop (readuin); 
Finished  true; 
end; 


{  display_next_page;  } 

{  display_previou5_page;  ) 


end; 

end 

else 

begin 

Unpop (readuin); 

Finished  :=  true; 
curnd\txt  :=  ’ESCAPE’; 
end; 

end; 

gotoxy(coluan,rou); 

until  Finished;  (end  of  the  repeat  statement) 
St  :»  cunuT.txt; 

St  :=  Triil(St); 

St  :*  Tried (St) ; 

String_Reader  :=  St; 

End; 


(mtiimtmitiimtitimttmttttmttttttttmttmtittmtiiitmimtt) 

begin 

init; 

read_infile(edt_file); 

prejopup; 

disp_text(l); 

cadjro; 

End;  (function  String_Reader) 


APPENDIX  M 


PROGRAM  LISTING 


EINIT.BAT 


v 


echo  off 

re«  mtuntmtmmmnmtmmnnnntmttmmttmmmtm 
rea  I 

r«  I  EINIT.BAT  -  This  batch  file  Mill  do  several  things  needed  to 
rea  I  initialize  the  netuork  EMAIL  systea.  The  aost  ieportant  task 
rea  I  is  to  build  the  file  called  IDFILE.DAT.  This  is  done  by  exe- 
rea  t  cuting  BLD_FILE.COM.  This  is  a  user-friendly,  aenu  driven  pro- 
rea  t  graa  which  is  self-explanatory.  After  building  the  file,  it  is 
rea  t  copied  to  the  subdirectory  MAIL  Mhich  is  located  in  each  user’s 
rea  t  directory.  In  addition,  all  extraneous  aessages  and  teap  files 
rea  t  are  deleted  also.  These  files  are  only  related  to  EMAIL  and  do 
rea  I  affect  any  other  part  of  the  netuork.  Presently,  this  batch  file  i 
rea  I  is  set  up  to  initialize  16  user  directories.  If  the  netuork  is 
rea  I  expanded  to  32  nodes,  siaply  reaove  the  coaaented  code  out,  Mhich  ' 
rea  t  is  pointed  out  belou.  This  file  also  initializes  the  systea  tiae 
rea  t  file  by  calling  6TIME.COM  froa  the  SESSMAN  directory, 
rea  I 

rea  ttmmmmmmitmtmmmttttttmmmttmsmmmmt! 

rea  Call  bldfile.coa  to  build  the  initial  IDFILE.DAT 
cd.. 

cd  public 
ds 

echo  off 

if  exist  teap.fil  ren  teap. fil, flag. fil 
if  exist  idfile.dat  del  idfile.dat 
bldfile 

if  log  »  11  echo  ttftttltttlttlttlltt 
if  log  "  II  echo  t  EMAIL  log  is  set  t 
if  log  «=  II  echo  ttmtttmittmtft 

echo  mmtittmtmmmititttttmttmtttmtttmmttt 
echo  t  t 

echo  t  INITIALIZING  PLEXSYS  EMAIL  SYSTEM  t 

echo  $  t 

echo  ttmuttmtttmtmmmmtttttttttttmtttmmm 
rea  tttttt  Clean  out  user  directories  ttttt 

echo  Cleaning  out  userlNaail  directory 
cd  userl 
cd  aail 

copy  c:\public\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 
if  exist  userl. nt  del  userl.nl 
if  exist  userl. of  del  userl. ol 
if  exist  in. fil  del  in. fil 
if  exist  t.aes  del  t.aes 
cd.. 
cd  .. 

echo  Cleaning  out  user2\aail  directory 
cd  user2 
cd  aail 

copy  c:\publ ic\idfile.dat, idfile.dat 


if  exist  teap.fil  ren  teap.fil,  flag.fil 

if  exist  user2.nl  del  user2.nl 

if  exist  user2.ot  del  user2.ot 

if  exist  in.fil  del  in.fil 

if  exist  l.aes  del  t.aes 

cd.. 

cd  .. 

echo  Cleaning  out  user3\aail  directory 
cd  user 3 
cd  nail 

copy  c:\public\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 

if  exist  user3.nl  del  user3.n! 

if  exist  user3.ol  del  user3.ol 

if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  l.aes 

cd.. 
cd  .. 

echo  Cleaning  out  user4\aail  directory 

cd  user4 
cd  aail 

copy  c:\public\idfile.dat, idfile.dat 
if  exit  teap.fil  ren  teap.fil,  flag.fil 

if  exist  user4.nt  del  user4.nt 

if  exist  user4.ol  del  user4.o! 

if  exist  in.fil  del  in.fil 

if  exist  l.aes  del  l.aes 

cd.. 
cd  .. 

echo  Cleaning  out  user5\aail  directory 

cd  userS 
cd  aail 

copy  ci\public\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 

if  exist  userS.nl  del  userS.nl 

if  exist  userS.ot  del  userS.ot 

if  exist  in.fil  del  in.fil 

if  exist  l.aes  del  t.aes 

cd.. 
cd  .. 

echo  Cleaning  out  user6\aail  directory 

cd  userb 
cd  aail 

copy  c:\public\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 

if  exist  user6.nt  del  userb.nl 

if  exist  userb.ot  del  user6.o! 

if  exist  in.fil  del  in.fil 

if  exist  l.aes  del  t.aes 

cd.. 
cd  .. 

echo  Cleaning  out  user7\aail  directory 

cd  user 7 
cd  aail 


user3\aail  directory 


dat, idfile.dat 

teap.fil,  flag.fil 

user3.n! 

userS.ot 

in.fil 

l.aes 


user4\aail  directory 


dat, idfile.dat 

teap.fil,  flag.fil 

user4.nt 

user4.o! 

in.fil 

l.aes 


user5\aail  directory 


dat, idfile.dat 

teap.fil,  flag.fil 

userS.nl 

userS.ot 

in.fil 

t.aes 


copy  c:\publ ic\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 
if  exist  user7.nt  del  user7.nt 
if  exist  user7.ot  del  user7.ot 
if  exist  in.fil  del  in.fil 
if  exist  l.aes  del  t.aes 
cd.. 
cd  .. 

echo  Cleaning  out  user8\aail  directory 
cd  user8 
cd  sail 

copy  c:\public\idfile. dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 
if  exist  user8.nt  del  user8.nl 
if  exist  userB.ot  del  userB.ol 
if  exist  in.fil  del  in.fil 

if  exist  l.aes  del  l.aes 

cd.. 
cd  .. 

echo  Cleaning  out  user9\aail  directory 

cd  user? 
cd  aail 

copy  c:\public\idfile. dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 
if  exist  user9.nf  del  user9.nt 
if  exist  user9.ol  del  user9.oi 
if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  l.aes 

cd.. 
cd  .. 

echo  Cleaning  out  userlO\aail  directory 

cd  user 10 
cd  aail 

copy  c:\public\idfi le. dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 

if  exist  userlO.nl  del  userlO.nl 

if  exist  userlO.ot  del  userlO.ol 

if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  l.aes 

cd.. 
cd  .. 

echo  Cleaning  out  userll\aail  directory 

cd  user  11 
cd  aail 

copy  c:\publ ic\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 

if  exist  userll.nl  del  userll.nl 

if  exist  userll.ol  del  userll.ot 

if  exist  in.fil  del  in.fil 

if  exist  l.aes  del  l.aes 

cd.. 
cd  .. 

echo  Cleaning  out  userl2\aail  directory 

cd  usert2 

3. 


5 


cd  Mil 

copy  c:\public\idfile. dat, idf i le. 
if  exist  teap.fil  ren  teap.fi 1 , 
if  exist  userl2.nl  del  userl2.nt 
if  exist  userl2.ot  del  userl2.ot 
if  exist  in.fil  del  in.fil 
if  exist  t.aes  del  t.aes 
cd.. 
cd  .. 

echo  Cleaning  out  userl3\aail 

cd  user 13 
cd  Mil 

copy  c:\public\idfile. dat, idfile. 
if  exist  teap.fil  ren  teap.fil, 
if  exist  userl3.nt  del  userl3.nt 
if  exist  userl3.ot  del  userl3.ot 
if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  t.aes 

cd.. 
cd  .. 

echo  Cleaning  out  userl4\aail 

cd  userlf 
cd  aail 

copy  c:\public\idfile.dat, idfile. 
if  exist  teap.fil  ren  teap.fil, 
if  exist  userM.nt  del  userl4.nt 
if  exist  userl4.ot  del  userl4.ot 
if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  t.aes 

cd.. 
cd  .. 

echo  Cleaning  out  userl5\aail 

cd  U5erl5 
cd  aail 

copy  c:\public\idfile.dat, idfile. 
if  exist  teap.fil  ren  teap.fil, 
if  exist  userl5.nt  del  userl5.nt 
if  exist  userlS.ot  del  userlS.ot 
if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  t.aes 

cd.. 
cd  .. 

echo  Cleaning  out  userl&Naail 

cd  user 16 
cd  aail 

copy  c:\public\idfile. dat, idfile. 
if  exist  teap.fil  ren  teap.fil, 
if  exist  userl6.nt  del  userl6.nt 
if  exist  userl6.ot  del  userl6.ot 
if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  t.aes 

cd.. 
cd  .. 


dat 

flag.fil 


directory 


dat 

flag.fil 


directory 


dat 

flag.fil 


directory 


dat 

flag.fil 


directory 


dat 

flag.fil 
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re* 

re* 

re* 

rH 

re* 

rw 

rH 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

re* 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

re* 

rH 


mm  note  mm 

To  extend  I  of  users  fro*  16  to  32  re*ove  all  re*s  fro*  this  point  on 

echo  Cleaning  out  userl7\*ail  directory 
cd  userl? 
cd  sail 

copy  c:\public\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fi 1 ,  flag.fil 

if  exist  userl7.nt  del  userl7.nt 

if  exist  userl7.ot  del  userl7.ot 

if  exist  in.fil  del  in.fil 

if  exist  t.*es  del  t.aes 

cd.. 
cd  .. 

echo  Cleaning  out  userl8\*ail  directory 

cd  user  IB 
cd  sail 

copy  c:\public\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 

if  exist  userlB.nt  del  userlB.nt 

if  exist  userlB.ot  del  userlB.ot 

if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  t.aes 

cd.. 
cd  .. 

echo  Cleaning  out  userl9\*ail  directory 

cd  user  19 
cd  tail 

copy  c:\public\idfile. dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 
if  exist  user 19. nt  del  user 19. nt 
if  exist  U5erl9.ot  del  userl9.ot 
if  exist  in.fil  del  in.fil 

if  exist  t.aes  del  t.aes 

cd.. 
cd  .. 

echo  Cleaning  out  user20\*ail  directory 

cd  user20 
cd  tail 

copy  c:\public\idfile.dat, idfile.dat 
if  exist  te*P  .fil  ren  teap.fil,  flag.fil 

if  exist  user20.nt  del  user20.nt 

if  exist  user20.ot  del  user20.ot 

if  exist  in.fil  del  in.fil 

if  exist  I. ms  del  t.MS 

cd.. 
cd  .. 

echo  Cleaning  out  u*er21\aail  directory 

cd  user21 
cd  sail 

copy  c:\public\idfile.dat, idfile.dat 
if  exist  teap.fil  ren  teap.fil,  flag.fil 

if  exist  user21.nt  del  user21.nt 

if  exist  user21.ot  del  us*r21.ot 


re*  cd  .. 

re*  echo  Cleaning  out  user22\Mil  directory 
re*  cd  user22 
re*  cd  Mil 

re*  copy  c:\public\idfile.dat, idfile.dat 

re*  if  exist  teap.fil  ren  teap.fil,  flag.fil 

re*  if  exist  user22.nt  del  user22.nt 

re*  if  exist  user22.ot  del  user22.ot 

re*  if  exist  in.fil  del  in.fil 

re*  if  exist  t.aes  del  t.aes 

re*  cd.. 

re*  cd  .. 

re*  echo  Cleaning  out  user23\*ail  directory 
re*  ced  user 23 
re*  cd  Mil 

re*  copy  c:\public\idfile. dat, idfile.dat 

re*  if  exist  teap.fil  ren  teap.fil,  flag.fil 

re*  if  exist  user23.nt  del  user23.nt 

re*  if  exist  user23.ot  del  user23.ot 

re*  if  exist  in.fil  del  in.fil 

re*  if  exist  t.aes  del  t.aes 

re*  cd.. 

re*  cd  .. 

re*  echo  Cleaning  out  user24\Mil  directory 
re*  cd  user24 

re*  cd  Mil 

re*  copy  c:\public\idfile.dat, idfile.dat 

re*  if  exist  teap.fil  ren  teap.fil,  flag.fil 

rea  if  exist  user24.nt  del  user24.nt 

rea  if  exist  user24.ot  del  user24.ot 

rea  if  exist  in.fil  del  in.fil 

rea  if  exist  t.aes  del  t.aes 

rea  cd.. 

rea  cd  .. 

rea  echo  Cleaning  out  user2S\*ail  directory 
rea  cd  user25 

rea  cd  Mil 

rea  copy  c:\public\idfile. dat, idfile.dat 

rea  if  exist  teap  . f il  ren  teap.fil,  flag.fil 

rea  if  exist  user25.nt  del  user2S.nt 

rea  if  exist  user 23. ot  del  user25.ot 

rea  if  exist  in.fil  del  in.fil 

rea  if  exist  t.aes  del  t.MS 

rea  cd.. 

rea  cd  .. 

rea  echo  Cleaning  out  us*r26\Mil  directory 
rea  cd  usartt 

re*  cd  Mil 

rea  copy  ct\public\idfile.dat, idfile.dat 
rea  if  exist  teap.fil  re*  teap.fil,  flag.fil 
re*  if  exist  us*r24.nt  del  uscr26.nt 

6. 


rea  if  exist  user26.ot  del  user26.ot 
re*  if  exist  in.fil  del  in.fil 

rea  if  exist  f.aes  del  t.aes 

rea  cd.. 
rea  cd  .. 

rea  echo  Cleaning  out  user27\aail 
rea  cd  user27 

rea  cd  aail 

rea  copy  c:\public\idfile. dat, idfile. 
rea  if  exist  teap.fil  ren  teap.fil, 
rea  if  exist  user27.nt  del  user27.nl 
rea  if  exist  user27.ot  del  user27.ot 
rea  if  exist  in.fil  del  in.fil 

rea  if  exist  t.aes  del  t.aes 

rea  cd.. 
rea  cd  .. 

rea  echo  Cleaning  out  user28\aail 

rea  cd  user28 

rea  cd  aail 

rea  copy  c:\public\idf ile.dat, idfile. 
rea  if  exist  teap.fil  ren  teap.fil, 
rea  if  exist  user28.nl  del  user2B.n! 
rea  if  exist  user 28. ot  del  user 28. ot 
rea  if  exist  in.fil  del  in.fil 

rea  if  exist  t.aes  del  t.aes 

rea  cd.. 
rea  cd  .. 

rea  echo  Cleaning  out  user29\aail 

rea  cd  u$er29 

rea  cd  aail 

rea  copy  c:\public\idfile.dat, idfile. 
rea  if  exist  teap.fil  ren  teap.fil, 
rea  if  exist  user29.nl  del  user29.n! 
rea  if  exist  user29.ot  del  user29.ot 
rea  if  exist  in.fil  del  in.fil 

rea  if  exist  t.aes  del  t.aes 

rea  cd.. 
rea  cd  .. 

rea  echo  Cleaning  out  user30\aail 

rea  cd  user30 

rea  cd  aail 

rea  copy  c:\public\idfile.dat, idfile. 
rea  if  exist  teap.fil  ren  teap.fil, 
rea  if  exist  user30.n!  del  user30.n! 
rea  if  exist  user 30. ot  del  user 30. ot 
rea  if  exist  in.fil  del  in.fil 

rea  if  exist  t.aes  del  t.aes 

rea  cd.. 
rea  cd  .. 

rea  echo  Cleaning  out  user31\aail 

rea  cd  uter31 

re*  cd  aail 

rea  copy  c:\public\idfile.dat, idfile. 
re*  if  exist  teap.fil  ren  teap.fil, 


directory 


dat 

flag.fil 


directory 


dat 

flag.fil 


directory 


dat 

flag.fil 


directory 


dat 

flag.fil 


directory 


dat 

flag.fil 


ret  if  exist  user31.nt  del  user31.nt 
rta  if  exist  user31.ot  del  user31.ot 
ret  if  exist  in.fil  del  in.fil 

ret  if  exist  t.ees  del  t.aes 

ret  cd.. 
ret  cd  .. 

ret  echo  Cleaning  out  user32\aail  directory 
ret  cd  user32 

ret  cd  tail 

ret  copy  c:\public\idfile.dat, idfile.dat 

ret  if  exist  tetp.fil  ren  tetp.fil,  flag.fil 

ret  if  exist  user32.nt  del  user32.nl 

ret  if  exist  user32.ol  del  user32.ot 

ret  if  exist  in.fil  del  in.fil 

ret  if  exist  t.aes  del  t.aes 

ret  cd.. 

ret  cd  .. 

if  exist  eaail.log  del  eaail.log 
if  log  ==  II  copy  eaail.dua  eaail.log 

cd\sessaan 

ds 

echo  tttttttttttttttttttttttttttttttttttttlttttttttttttttttttt 
echo  t  t 

echo  t  INITIALIZE  SYSTEN  TINE  FILE  (takes  approx.  S  seconds)  t 
echo  I  t 

echo  tttttttttttttttttttttttttttttttttttttttttttttttttttmttt 
gtiae 

echo  Itltttttttttttttttttttttttttttttttttttttttttttttttttttttt 
echo  t  t 

echo  t  INITIALIZATION  OF  EMAIL  SYSTEM  COMPLETE  t 
echo  t  t 

echo  tttttttttttttttttttttttttttttttttttttttttttlttttttttttttt 


» 

I 


s 


APPENDIX  N 
PROGRAM  LISTING 
of 

GOFILE.BAT 


echo  off 

re«  tmttttstmtmttttmtmtittmttmtttmtttmmumttmtm 
ret  t 

ret  I  60FILE.BAT 

ret  I  This  bat  file  is  used  to  copy  IDF1LE.DAT  to  each  user’s  HAIL 
ret  $  subdirectory.  10F1LE.DAT  provides  the  tapping  between  usernate 
ret  t  and  location  on  the  network.  It  is  used  by  the  EHA1L  systee 
ret  I  to  allow  cotiunication  between  users  but  relieve  users  frot 
ret  t  having  to  know  the  actual  location  of  the  receiver  on  the  net- 
ret  t  work.  This  bat  file  is  called  frot  the  EHAIL  Individual  Tools 

ret  t  tenu  located  in  the  SESSHAN  directory.  Before  copying  a  file  to 

ret  I  the  user’s  tail  subdirectory,  a  procedure  LOCK  is  called  to  pre- 

ret  t  vent  the  user’s  EHAIL  prograt  frot  accessing  IDFILE.DAT  while  it 

ret  t  is  being  updated/copied.  After  the  copy  is  done  a  procedure 
ret  t  UNLOCK  is  executed  to  allow  the  user’s  EHAIL  systet  to  access  the 
ret  I  updated  IDFILE.DAT. 
ret  t 

ret  tttttmmtmttmtmttttttmmitttmummtttmttimmm 

els 

cd.. 

cd  public 
echo  off 

echo  mtnnuunmttmmmtmmmmtmunmmtt 
echo  I  I 

echo  I  COPY  IDFILE.DAT  TO  USER  HAIL  DIRECTORIES.  > 
echo  I  t 

echo  mtmmmntmmmmmtmnnmmmttttnnt 
echo  Copying  IDFILE.DAT  to  userl\aail  directory 
cd  userl 
cd  tail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  user2\tail  directory 
cd  user2 
cd  tail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  user3\aail  directory 
cd  user 3 
cd  tail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  user4\aail  directory 
cd  user* 


,4  »  >tf,  ll.  if.  |». 


4»,  l>t  4 


cd  mail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  1DF1LE.DAT  to  user5\aail  directory 
cd  user5 
cd  tail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  userhlaail  directory 
cd  userb 
cd  aail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  user7\aail  directory 
cd  user 7 
cd  aail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  user8\aail  directory 
cd  userB 
cd  aail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  user?\aail  directory 
cd  user? 
cd  aail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  ustrlO\aail  directory 
cd  user 10 
cd  aail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 


2. 


echo  Copying  IDFILE.DAT  to  userlHiail  directory 
cd  user  11 
cd  tail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  userl2\aail  directory 
cd  userl2 
cd  sail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  userl3\aail  directory 
cd  userl3 
cd  tail 
lock 

copy  c:\public\idfile.dat,  id-file. dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  userld\aail  directory 
cd  userid 
cd  tail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  userl5\aail  directory 
cd  userl5 
cd  sail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

echo  Copying  IDFILE.DAT  to  userl&\aail  directory 
cd  user  16 
cd  aail 
lock 

copy  c:\public\idfile.dat,  idfile.dat 

unlock 

cd.. 

cd  .. 

re#  tlttlt  NOTE  ttlttt 

rta  To  extend  I  of  users  froa  16  to  32  raaove  all  reas  froa  this  point  on 

reo  echo  Copying  IDFILE.DAT  to  userl7\aail  directory 
rea  cd  userl7 

3. 


rea  lock 

rea  copy  c:\public\idfile.dat,  id-file. dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDF1LE.DAT  to  userl8\aail  directory 
rea  cd  user 18 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\id-file.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  userl9\aail  directory 
rea  cd  user 19 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user20\aail  directory 
rea  cd  user20 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user21\aail  directory 
rea  cd  user21 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user22\aail  directory 
rea  cd  user22 
rea  cd  aail 
rea  lock 

rea  copy  ci\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user23\aail  directory 
rea  ced  user23 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 


rea  echo  Copying  IDFILE.DAT  to  user24\aail  directory 
rn  cd  user24 
ret  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
ret  unlock 
ree  cd.. 
re*  cd  .. 

ree  echo  Copying  IDFILE.DAT  to  user25\aail  directory 
rea  cd  user25 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user26\aail  directory 
rea  cd  user26 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user27\aail  directory 
rea  cd  user27 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user28\aail  directory 
rea  cd  user28 
rea  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rea  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user29\aail  directory 
rea  cd  user29 
rn  cd  aail 
rea  lock 

rea  copy  c:\public\idfile.dat,  idfile.dat 
rea  unlock 
rn  cd.. 
rea  cd  .. 

rea  echo  Copying  IDFILE.DAT  to  user30\aail  directory 
rea  cd  user 30 
rn  cd  aail 
rea  lock 

rea  copy  ci\public\idfile.dat,  idfile.dat 
rea  unlock 


)  4**  v 


lui't 
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re*  cd.. 
ret  cd  .. 

re*  echo  Copying  IDF1LE.DAT  to  ufer3i\*ail  directory 
re*  cd  user31 
re*  cd  aail 
re*  lock 

re*  copy  c:\public\idfile.dat,  idtile.dat 
re*  unlock 
re*  cd.. 
re*  cd  .. 

re*  echo  Copying  IDFILE.DAT  to  user32\*ail  directory 
re*  cd  user32 
re*  cd  tail 
re*  lock 

re*  copy  c:\public\idTile.dat,  idtile.dat 
re*  unlock 
re*  cd.. 
re*  cd  .. 


echo  mtmmtmmttmttmmstmtitimimmmtmt 
echo  I  * 

echo  I  PLACEMENT  OF  IDFILE.DAT  IN  USER  DIRECTORIES  COMPLETE  t 
echo  t  I 

echo  mtstmtfmttmmtttuutttmmttmmmtmtm 
echo  on 
cd\sessaan 
cycle 


I  *1 
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APPENDIX  0 
PROGRAM  LISTING 
of 

INCLUDE  FILES  USED 
by  the 

MEMORY -RESIDENT  SHELL: 

StayRstr .420 
Stay Save. 420 
Stay 128 .410 
StayI8 . 420 
StayI21 .410 
StayI13 .410 
StayllG  .410 
St ay Sub a .420 
StayVndo . 341 
ClkI8 .410 


i 


Inline! 


{;  PROCESS  I  N  T  E  R  R  II  P  T  1  6  ;> 

<i  ;> 

{;  Function:} 

£;  Provide  a  Keyboard  trap  to  alloc  concurrent  processes  to) 

{;  run  in  the  background  chile  a  Turbo  Read  is  active.} 


{ 

Copyright  (0  1985,1986} 

£ 

Lane  Ferris} 

{ 

-  The  Hunter’s  Helper  -} 

{ 

Distributed  to  the  Public  Doaain  For  use  cithout  profit.} 

{ 

Original  Version  5.15.85} 

{ 

On  entry  the  Stack  cill  already  contain:  ;} 

{ 

1)  Sp  For  Dos  ;} 

{ 

2)  Bp  For  Dos  ;} 

{ 

3)  Ip  For  Dos  ;} 

{ 

4)  Cs  For  Dos  ;} 

£ 

5)  Flags  For  Dos  ;} 

fSD 

{ 

Pop 

Bp} 

/♦5D 

£ 

Pop 

Bp  ;  Restore  Original  Bp} 

/$80/*FC/*00 

£ 

Cap 

Ah, 00  ;  IF  Char  request,} 

/474/42A 

£ 

Je 

FuncOO  5  loop  For  character} 

/♦80/iFC/*01 

£ 

Cap 

Ah, 01  ;  IF  character  availability  test} 

/474/I05 

£ 

Je 

FuncOl  !  go  check  For  char) 

£6oBiosl6:} 

mi 

£ 

CS: 

;  Go  to  Bios  Interrupt  16} 

/*FF/*2E/>BI0S_INT16 

£ 

Jap  Far  DBIOS  !ntl61) 

£Func01;} 

/»E8/*3F/*00 

£ 

Call 

KeyStat  ;  Look  at  Key  buffer) 

/$9C 

£ 

PushF) 

/474/I16 

£ 

Jz 

FretOl  ;  Return  if  no  key) 

/*2E 

£ 

CS: 

i  Test  For  HOT  KEY) 

/ $3A/<26/ >0UR_H0TKEY 

£ 

Cap 

Ah,[<0ur  HotKeyJ) 

/475/IOF 

£ 

Jne 

FretOl)  " 

/4B4/400 

£ 

Hov 

Ah , 0  ;  Reaove  the  HotKey) 

/♦2E 

£ 

CS: 

;  Flags  are  reaoved  by  BIOS  return) 

/4FF/$1E/>BI0S  INT16 

£ 

Call  Dcord  DBIOS  1NT1611 

/*2E 

£ 

CS: 

;  Say  ce  sac  the  HOT  Key) 

/$BO/$OE/>STATUS/<HQTKEY_0N  { 

Or  by  [<  Status  3  f  <  Hot Key_DN> 

/$EB/$E4 

£ 

Jap 

FuncOl  ;} 

fFretOls} 

/»9D 

£ 

POPFJ 

/4CA/I02/400 

£ 

RETF 

2  ;  Return  to  user) 

£FuncOO: } 

/$E8/$lF/$00 

£ 

Call 

KeyStat  ;  Bait  until  character  available} 

/I74/4FB 

£ 

Jz 

FuncOO) 

/4B4/400 

£ 

Bov 

Ah,0  ;  Get  the  next  User  Key) 

/*9C 

£ 

PUSHF  5 5 

mi 

£ 

CS:} 

/$FF/»1E/>BI0S  INT16 

£ 

Call  Dcord  DBIOS  INT163) 

/•9C 

{ 

PushF 

a 

f 

Save  Return  Flags) 

/•  2E 

{ 

CS: } 

/•3A/»26/>0UR  HOTKEY 

{ 

Cap 

Ah,t<Our_HotKey); 

Our  HotKey  ?) 

/»74/*04 

{ 

Je 

6otHotKey  ; 

yes.. enter  Staysave  code) 

/•9D 

{ 

POPF 

else  Restore  INT  16  flags) 

/♦CA/»02/»00 

{ 

RetF 

2  i 

Return  N/Key  discard  original  INT  16  flags) 

{ 

"..  give  it  to  Hikey. .he’ll  eat  anything") 

£6otHotKey:) 

/<9D 

{ 

POPF 

• 

J 

Discard  INT16  return  flags) 

/$2£ 

{ 

CS: 

5 

Say  ae  sat*  the  HOT  Key) 

/*80/t0E/>STATUS/<H0TKEY  ON 

{ 

Or  by  £<Statusl,<HotKey_ON) 

/•EB/fDE 

{ 

Jap 

FuncOO  I 

Get  another  Key) 

<; 

Call  the  Background  task  it  no  key  is  available) 

(KeyStat:) 

/»B4/»01 

c 

Nov 

Ah , 01  ; 

Look  for  available  key) 

/*9C 

c 

PushF 

) 

Call  the  keyboard  function) 

/•2E 

{ 

CS:) 

/•FF/tlE/>8I0S  INT16 

£ 

Call 

da  £<BIOS_INT163) 

/•74/iOl 

£ 

Jz 

ChkDosCr  ; 

No  Character  available  froa  Keyboard) 

/<C3 

£ 

RE’ 

5  1 

else  return  uith  nett  flags  and  code) 

fChkDosCr:) 

/*06 

£ 

Push 

ES  ; 

Check  if  DOS  Critical  error  in  effect) 

/»  56 

£ 

Push 

Si) 

/*2E 

£ 

CS:) 

/*C4/t36/>D0SSTAT2 

£ 

Les 

Si,[>D0SStat21) 

/»26 

£ 

ES: 

• 

1 

Zero  says  DOS  is  interruptable) 

/•AC 

£ 

Lodsb 

I 

(FF  says  Dos  is  in  a  critical  state) 

/»2E 

£ 

CS:) 

/*C4/*36/)D0SSTATl 

£ 

Les 

Si ,  ODosStatl  ]  ; 

If  INDOS  then  INT  »2B  issued  by  DOS) 

/•26 

£ 

ES: 

a 

» 

so  He  dont  have  to.) 

/*0A/*04 

£ 

Or 

Al.tSIl) 

/*2E 

£ 

CS: 

a 

» 

Account  for  active  interrupts) 

/»OA/»06/>INTR  FLA6S 

£ 

Or 

Al,[<Intr  Flags); 

Any  flags  says  He  dont  issue  call) 

/*5E 

£ 

Pop 

Si  ; 

to  the  background.) 

/»  07 

£ 

Pop 

Es) 

/*3C/*01 

£ 

Cap 

A1 , 01  ; 

Must  be  INDOS  flag  only) 

/»7F/*02 

£ 

J6 

Sk i p2B  ; 

DOS  cannot  take  an  interrupt  yet) 

/•CD/128 

£ 

INT 

•28  ; 

Call  Dos  Idle  func.  (background  dispatch).) 

£Skip28: > 

/*31/tC0 

£ 

lor 

Ax, Ax  ; 

ShoH  no  keycode  available) 

/*C3 

£ 

RET) 

£: - 

- j 

Inline) 


{;  STAYI21 . 400) 

{; - ) 

(;  Routine  to  Set  a  Flag  when  certain  INT21  functions  are  active.) 
1;  Functions  to  be  flagged  are  identified  in  the  tain  Stayres) 

{;  routine.  Cf.  Functab  array.) 


$5D 

/$5D 

/*9C 

/*FB 

/*80/*FC/$62 

/$7F/*28 


Pop  Bp 
Pop  Bp) 
PushF) 

STI 

Cap  Ah, (62 
Jg  SkipI21) 


Reaove  Turbo  Prologue) 


Allow  interrupts) 
Verify  Nax  function) 


{;  Soae  Int  21  functions  aust  be  left  alone.  They  either  never  return,) 
{;  grab  paraaeters  froa  the  stack,  or  can  be  interrupted.  This  code) 


{;  takes  account  of  those  possibilities.) 

i 

/(50 

1 

Push  Ax 

;  Skip  functions  aarked  1  in 

1 

f 

/*53 

{ 

Push  Bx 

;  in  the  function  table.) 

/*86/$C4 

{ 

Xchg  Ah, AD 

> 

/$BB/>FUNCTA8 

{ 

Nov  Bx,)FuncTab 

;  Test  Int  21  function) 

/$  2E 

{ 

CSt) 

5 

/*D7 

{ 

Xlat) 

- 

/*08/$C0 

{ 

Or  A1,A1 

;  Mait  for  functions  aarked 

l 

• 

/$5B 

1 

Pop  Bx 

;  in  the  function  table.) 

>. 

/*5B 

{ 

Pop  Ax) 

/475/M9 

{ 

Jnz  Ski p 121 ) 

(SetI21:) 

mi 

1 

CS:) 

i 

/*80/WE/>INTR_FLAGS/<INT21_0NI 

Or  by  C<Intr_flags],<INT21_on  ;  Say  INT  21  is  Active) 

F 

im 

{ 

PopF) 

[; 

UK 

{ 

Pushf) 

[■ 

Ull 

1 

CS:) 

K 

/»FF/»1E/>D0S_INT21 

{ 

Call  dw  KDOS  INT211 

j  Invoke  Original  INT  21) 

t 

H FB 

{ 

STI 

;  Insure  interrupts  enabled) 

/$9C 

{ 

Pushf 

;  Save  Return  Flags) 

/$2E 

{ 

CS: 

;  Clear  INT  21  Active) 

a 

1 

/$80/«26/>INTR_FlA6S/<F0XS-INT21_0N{ 

And  by  [<Intr_flags),<Fox5-INT2l_on) 

/»9D 

{ 

Popf 

;  Retrieve  the  flags) 

s! 

/ICA/102/400 

1 

RETF  2) 

■u 

1 

/*9D 

{Ski p 12 1 : 
{ 

PopF) 

;  Invoke  Int  21  w/o  return) 

mi 

{ 

CS:) 

w 

a 

i 

/»FF/42E/>D0S_INT21 

1 

u . 

dap  dw  I)Dos_INT21]) 

juruw  JwvuvTCTKn  mtiwivt  vtjwh 

J 

i 

j 

r 

\  Inline* 

• 

l 

j 

{;  STAYI28. 400) 

{; - > 

{;  Routine  to  Invoke  User  Code  When  HotKey  or  DOS  idle) 

J  (SD 

{ 

Pop  Bp 

;  Reaove  Turbo  Prologue) 

0  /45D 

{ 

Pop  Bp) 

;■  hk 

{ 

Pushf) 

'■]  /*2E 

{ 

CS:) 

l  /*FF/$1E/>D0S  INT2B 

{ 

Call  dw  DDQS  INT281 

;  Invoke  Original  INT  28) 

|  /$2E 

{ 

CS:> 

*.  /*F6/»06/ >STATUS/<HOTKEY_OH  { 

Test  by  [(Status), (HotKey  on 

;  Have  we  received  the  HOKEY) 

>,  /«74/$25 

< 

Jz  NoGo) 

J;.  /*2e 

{ 

CS: } 

K  /*F6/*06/>STATUS/< INUSE 

{ 

Test  by  [(Status), (Inuse 

;  If  Inuse.,  then  No  go) 

;  /*75/*lD 

{ 

Jnz  No6o) 

1 

{;  If  Not  already  waiting  I/O,  not  already  in  use,  and  HotKey  received) 

\  /*06 

{;  see  if  DOS  is  now  interruptable) 
[ChklQ:) 

{  Push  ES 

;  Save  registers) 

>  /»56 

{ 

Push  Si) 

L  /*50 

{ 

Push  Ax) 

t  /*2E 

{ 

CS:) 

■  /$C4/*36/>D0SSTAT2 

{ 

LES  S!,[)D0Sstat2) 

;  Fetch  DOS  Critical  status  byte) 

/$26 

{ 

ES:) 

r.  /*ac 

{ 

LodSb) 

t*  /*2E 

I 

CS:) 

\  /*0A/*06/>INTR  FLAGS 

{ 

Or  Al,t(Intr_Flags) 

;  Add  Interrupt  active  flags) 

B  /$58 

I 

Pop  Ax) 

R  /ME 

{ 

Pop  Si) 

D  /$07 

{ 

Pop  ES) 

*  /475/409 

{ 

Jnz  NoGo 

;  Wait  for  inactivity) 

9  /,2E 

{ 

CS: 

;  Have  the  Hotkey) 

c  /*80/*3E/>NAITCOUNT/»00 

{ 

Cap  by  C(HaitCount ) , 00 

;  If  tiaer  waiting,  go) 

j  /4E9/401/400 

{ 

Jap  Go) 

f  /»CF 

INoGot) 

I 

IRET) 

V 

V 

(GO: 

;  Enter  the  User’s  Turbo  Procedure) 

J.  /*2E 

{ 

CS:) 

<  /*C6/»06/>NAITC0UNT/$00 

{ 

Hov  by  [(NaitCount),00 

;  Kill  INT8  wait  count) 

'  /$2E 

{ 

CS:) 

?  /<FF/ t 1 6 / >USERPROGRAM 

{ 

Call  [(UserPrograal) 

J  /*CF 

{ 

IRET) 

| 

r 

<; . 

»* 

>* 

i . 

4. 

Inline! 


{;  STAYI8.413) 

<; . J 


<; 

Routine  to  Await  Outstanding  I/O,  then  post  Stayres  Active) 

tSD 

{ 

Pop  Bp 

;  Reaove  Turbo  Prologue) 

/ISO 

{ 

Pop  Bp) 

/*9C 

{ 

Push!) 

/•2E 

{ 

CS:) 

/*FF/*1E/>BI0S  INT8 

{ 

Call  dw  t)BI0S_INT8) 

;  Invoke  Original  INT  8) 

/$2E 

{ 

CS:) 

/iF6/$06/>STATUS/<H0TKEY_QN  { 

Test  by  t<Status),<HotKey 

.on  ;  Have  we  received  the  HOKEY) 

/S74/439 

{ 

Jz  N060) 

/42E 

{ 

CS:) 

/*F6/*06/>STATUS/< INUSE 

{ 

Test  by  [<Status3, < Inuse 

;  If  Inuse.,  then  No  go) 

/475/431 

{ 

Jnz  NoGo) 

/*2E 

{ 

CS: 

;  Have  the  HotKey) 

/*80/*3£/>bAITC0UNT/»00 

{ 

Cap  by  [<baitCount),00 

;  If  waiting,  check  tiae) 

/*75/422 

{ 

Jnz  baiting) 

<s 

If  Not  already  waiting  I/O, 

not  already  in  use,  and  HotKey  rec 

see  if  DOS  is  now  interruptable) 

(ChklO:) 

/*06 

{ 

Push  ES 

1  Save  registers) 

/  *56 

{ 

Push  Si) 

/$50 

{ 

Push  Ax) 

/42E 

{ 

CS:) 

/♦C4/$36/>D0SSTATl 

{ 

LES  Si,E>DOSstatl) 

;  Fetch  Dos  status  1) 

/$26 

{ 

ES:) 

/♦AC 

{ 

Lodsb 

j  Fetch  Status  byte  froa  dos) 

/*2E 

{ 

CS:) 

/4C4/$36/>DOSSTAT2 

( 

LES  SI,t>DOSstat2) 

;  Add  second  status  byte) 

/*26 

{ 

ES:) 

/40A/404 

( 

Or  Al.CSIJ) 

/*2E 

{ 

CS:) 

/40A/406/MNTR  FLA6S 

{ 

Or  Al,C<Intr_FlagsI 

;  Add  Interrupt  active  flags) 

/*58 

{ 

Pop  Ax) 

/45E 

{ 

Pop  Si) 

/407 

( 

Pop  ES) 

/474/40E 

{ 

Jz  60 

{  bait  for  inactivity) 

/*2E 

{ 

CS:) 

/♦C6/*06/>MAITC0UNT/$10 

{ 

Nov  by  C<NaitCountI,tIO 

;  Set  bait  count) 

{Waiting:  > 

/42E 

{ 

CS:) 

/»FE/$OE/>bAITCOUNT 

{ 

Dec  by  KbaitCount) 

;  Decreeent  wait  count) 

/474/4D7 

{ 

Jz  ChklO) 

«o6o:) 

/»CF 

( 

IRET) 

(60s  )  Enter  the  User’s  Turbo  Procedure) 

/$2E 

{ 

CS;) 

/4FF / 116/ >USERPR06RAH 

{ 

Call  KUserPrograal) 

/ICF 

{ 

IRET) 

{;  STAYRSTR.  INC  5) 

5* 

{;  This  is  the  StayRstr.Inc  file  included  above  ;) 

{{ttttttittttttttmmtmitiimitmttttttttmttttmtmttmtmtttttttt;} 

{{Version  4.15) 

{  ;  Inline  Cade  to  restore  the  stack  and  regs  eoved) 

{  ;  to  the  Turbo  Resident  Stack  which  allows) 

(  ;  Turbo  Terminate  It  Stay  Resident  prograas.) 

{  ;  Copr.  1985,  1984) 

{  ;  Author:  Lane  Ferris) 

{  j  -  The  Hunter’s  Helper  -) 

{  ;  Distributed  to  the  Public  Doaain  Tor  use  without  pro-fit. ) 

{  ;  Original  Version  5.15.85) 


Restore  the  Dos  (or  interrupted  pga)  Regs  and  Stack 


Replace  the  Users  Saved  Stack) 

Note  that  pushes  on  the  stack  go  in  the  opposite  direction  of  our) 
aoves.  Thus  we  dont  worry  about  REP  stack  activity  overlaying  the) 
enabled  REP  fuction.) 


IFA 

{ 

CLI) 

/I2E 

{ 

CSt 

{Avoid  stack 

/♦A1/>D0SSSIZ 

{ 

Hov 

Ax,I>DosSsiz)) 

/I09/IC0 

( 

Or 

Ax, Ax) 

/I74/I20 

{ 

Jz 

NotinDos) 

/♦8C/ID0 

{ 

Hov 

Ax.SS  ; 

/I8E/ID8 

{ 

Hov 

DS,Ax) 

/I89/IE6 

{ 

Hov 

Si ,  Sp  j 

/♦44 

{ 

Inc 

Si) 

/Mi 

{ 

Inc 

Si) 

/I2E 

{ 

CS:) 

/*8E/I0i/>D0SSS£6 

{ 

Hov 

ES.DDosSSeg)  ;! 

/I2E 

{ 

CS:) 

/I8B/I3E/>D0SSPTR 

{ 

Hov 

Di.DDosSptr]} 

/I2E 

{ 

CS:) 

/I8B/I0E/>DQSSSIZ 

{ 

Hov 

Cx,ODosSsiz)  ; 

/129/ICF 

{ 

Sub 

Di,Cx  51 

/129/ICF 

{ 

Sub 

Di,Cx) 

/IFC 

{ 

CLD> 

/IF2/IA5 

{ 

Rep  Hovsw  ;l 

/I89/IF4 

{ 

Hov 

Sp , Si  { 

-) 

{NotinDos: > 

/♦07 

{ 

Pop 

Es) 

/I3F 

{ 

Pop 

Di) 

/I5E 

{ 

Pop 

ii) 

/♦5A 

{ 

** 

Dx) 

/  *59 

{ 

Pop 

Cx) 

/MB 

{ 

Pop 

lx) 

/I58 

{ 

Pop 

Ax) 

{Source  is  our  Stack) 

{Point  to  Last  used  USER  word  on  our  stack) 


{point  to  last  used  word  of  Dos  stack) 


/  080/126/ >STATUS/<FOIS-INUSE -HOTKEY  JW{  And  by  [(Status), <Foxs-Inuse-HotKey_on  ;  Clear  INUSE 

/I2E  {  CS?  ;  and  HotKeyl 

/*BE/*1E/>USRDSE6  {  Hov  DS, C<UsrOScq}} 

It 2E  {  CS:) 


/$8E/*16/>USRSSE6 

/*2E 

/$8B/*26/>USRSFTR 

/$5D 

/BSD 

/$FI 


Hov  SS, [<UsrSSeq ]} 
CS:} 

Hov  SP,[<UsrSPtr)> 


Reoove  Bp, Sp  trot  Procedure  entry) 


{  Pop  Bp) 

{  ST1 


;  enable  interrupts} 


Inline! 


{;  STAYSAVE.  I«C  ;) 

{; Version  4.15) 

<;> 

{;  This  Inline  routine  Kill  save  the  regs  and  Stack  for  Stay  resident  prograes.) 
{}  It  restores  DS  and  SS  froa  the  previously  saved  integer  constants  'OurDteg'} 
{;  and  ’OurSSeg'.  DS  is  restored  froe  the  Turbo  Initialization  Savearea.) 

{;  Author!  Copyr.  1985,  1986} 

{;  Lane  Ferris! 


li 

-  The  Hunter’s  Helper  -1 

Distributed  to  the  Public  Doaain  for  use  without  profit.) 

<; 

Original  Version  5.15.85) 

*FA 

{ 

CLI  ;  Stop  all  interrupts! 

/*2E 

{ 

CS: ! 

/$80/l0E/>STATUS/ <  IN4JSE 

{  Or  by  UStatus),< InUse  |  Set  Active  bit! 

{;  Switch  the  SSiSp  reg  pair  over  to  ESiSi! 

{;  Put  Turbo’s  Stack  pointers  into  SSiSp) 

/$2E 

I  CS:! 

/$8C/$1E/>USRDSE6 

{  Hov  [>UsrDSegl,DS  ;  Save  Usr  DataSegaent! 

/I2E 

I  CS:> 

/«8C/*16/)USRSS£6 

{  Hov  [>UsrSSeg!,SS  ;  Save  Usr  Stack  Segaent! 

/»  2E 

I  CS:! 

/«89/»26/>USRSPTR 

{  Hov  OUsrSPtr J,Sp  i  Save  Usr  Stack  Ptr! 

I;  Stack  User  interrupted  pga  regs  for  Exit.! 

(;  These  are  the  original  interrupt  process  regs) 

{;  that  oust  be  returned  on  interrupt  return) 

/$2E 

I  CSi) 

/»8E/$1E/>0URDSE6 

(  Hov  DS,l>OurDseg)  j  6et  Turbo  Stack  pointer  froa  DataSegaent) 

/*2E 

(  CSi) 

/*8E/*16/>QURSSE6 

{  Hov  SS,t>OurSSeg)) 

/*B8/$26/*74/*01 

(  Hov  Sp,Ctt74)  ;  Sp  set  by  code  at  IB2B  in  Turbo  initialization) 

/«53 

{  Push  Bp) 

/*50 

{  Push  Ax) 

/*53 

(  Push  Bx) 

/*51 

(  Push  Cx) 

/*52 

I  Push  Dx) 

/S56 

{  Push  Si) 

It, 57 

{  Push  Di) 

not 

I  Push  Es) 

{;  Save  the  InDOS  stack  to  avoid  recursion  crashes  (Hriteln).) 

{;  Setup  destination  to  Turbo  Stack) 

/W9/» E7 

I  Hov  Di ,5p  ;Dest  is  our  stack) 

/$4F 

1  Dec  Di  ;Back  off  current  used  word) 

/$4F 

(  Dec  Di) 

1%  2E 

(  CSi) 

/$8C/ID0 

(  Hov  Ax,SS  ; Turbo  stack  is  destination) 

/»8E/*C0 

(  Hov  ES, Ax) 

(|  Setup  source  froa  DOS  Indos  priaary  stack! 

/I2E 

<  CSi) 

/*8E/*1E/>D0SSSE6 

mi 

/*8B/I36/>DQSSPTR 

/♦I9/M0/M0 

/*2E 

/*89/»0£/>D0SSSIZ 

/ME 

/ME 

/(89/tEO 

/*29/*C8 

/»29/»C8 

/*89/$C4 

/*FD 

/*F2/*A5 

/*89/»FC 

/*FC 

/$2E 

/*8E/*1E/>0URDSE6 

/♦FB 


{ 

Hov 

DS,t>DosSSeg]  ;  Source  is  DOS  Indos  prieary  stack) 

{ 

CS:  > 

{ 

Hov 

Si,t>DosSptrl  ;  DOS  prieary  stack  offset) 

{ 

Hov 

C* ,*40} 

{ 

CSi) 

{ 

Hov 

[>DosSsiz),Cx  ;reeeeber  the  stack  nord  size) 

{ 

Dec 

Si  ;point  last  word  on  stack) 

{ 

Dec 

Si) 

{ 

Hov 

fix ,Sp  ;6et  stack  pointer  higher  to  avoid) 

{ 

Sub 

Ax,Cx  {overwriting  during  enabled  REP  functions) 

{ 

Sub 

Ax,Cx) 

{ 

Hov 

Sp , Ax) 

{ 

STD 

{Hove  like  Pushes  on  stack) 

{ 

Rep  Hovsm  ; Move  users  stack  to  our  own) 

{ 

Hov 

Sp, Di  {Update  our  stack  pointer  to  available  word.) 

{ 

Cld) 

{ 

CS:) 

{ 

Hov 

0S,()0urDSeg)  ;  Setup  Turbo  Data  Segnent  Pointer) 

{ 

STI 

;  Enable  Interrupts) 

) 


(ttttimmtmmmmtttuimittmiuttumimttmitttmtmtimti) 
{  STAYSUBS  .  INC  ) 

{tttmtmtmmmttmmittmummmtmmmtttmmtmtiiiittt} 


SETUP  INTERRUPT 


(  Hsg  I  148  Dated  07-07-88  18:54i38 

Fro.:  NEIL  RUBENK I MB 
To:  LANE  FERRIS 
Re:  STAY,  WON’T  YOU1 


Here’s  what  I  did:  ) 

PROCEDURE  Setupjnterrupt  (IntNo  sbyte;  VAR  IntVec  :vector;  offset  '.integer); 
BE6IN 

Regs. Ax  :  =  43500  ♦  IntNo; 

Intr <DosI21 , Regs) ;  (get  the  address  of  interrupt  ) 

IntVec. IP  :*  Regs. 81;  {  Location  of  Interrupt  Ip  ) 

IntVec. CS  :=  Regs.Es;  {  Location  of  Interrupt  Cs  ) 

Regs. Ax  :=  42500  ♦  IntNo;  (  set  the  interrupt  to  point  to) 

Regs.Ds  Cseg;  {  our  procedure) 

Regs.Dx  :=  Offset; 

Intr  (DosI21,Regs); 

END: 


(ttttttttttttltttttt  CONSENT  ttttttlttlttlttttttttttmtimitttttlttt 
fin  the  oain  part  of  the  prograe) 

Setup  Interrupt (BIOSI 18,  BI0S_IntI8,  Ofs(StayJNTlSI);  (keyboard) 

Setup  "interrupt  (BIOSIIO,  BlOSjnttO,  Ofs(Stay_INT10) );  (video) 
Setupjnterrupt  (BIOSIB,  BIOS  IntB,  OfefStay _INT8));  (tieer) 

Setup .Interrupt (BIOSI 13,  BIQSJntl3,  0f»(Stay.INT13) );  (disk) 
Setupjnterrupt (D0SI21,  DOSJnt21,  0fs(StayJNT21));  (DOSfunction) 
Setuplnterrupt (D0SI28,  D0S_Int28,  Of s (Stay~INT2B) ) ;  (DOS  idle) 

tttimttttttumm  c  o  h  n  e  n  t  ittmimumiitmttmttmttumtit) 


Procedure  SetDTAtvar  segeent,  offset  :  integer  ); 

BEGIN 

regs.ax  :=  41A00;  (  Function  used  to  get  current  DTI  address  ) 

regs.Ds  :=  segeent;  {  Segeent  of  DTA  returned  by  DOS  ) 

regs.Dx  :-  offset;  (  Offset  of  DTA  returned  ) 

NSDos <  regs  );  (  Execute  NSDos  function  request  ) 


Procedure  6etDTA(var  segeent,  offset  :  integer  ); 

BEGIN 

regs.ax  :  =  42F00;  (  Function  used  to  get  current  DTA  address  ) 

NSDost  regs  );  (  Execute  NSDos  function  request  ) 

segeent  :-  regs.ES;  (  Segeent  of  DTA  returned  by  DOS  ) 

offset  :*  regs.Bx;  {  Offset  of  OTA  returned  ) 


t  ft  * 


( - } 

{  S  E  T  P  S  P  ) 

{ - > 


Procedure  SetPSPIvar  segaent  :  integer  ); 

BEGIN 

{  A  bug  in  DOS  2.0,  2.1,  causes  DOS  to  clobber  its  standard  stack  } 

{  uhen  the  PSP  get/set  functions  are  issued  at  the  DOS  proapt.  The  } 

{  following  checks  are  aade,  forcing  DOS  to  use  the  ‘critical*  ) 

{  stack  when  the  TSft  enters  at  the  INDOS  level.  } 

(If  Version  less  than  3.0  and  INDOS  set  ) 
If  DosVersion  <  3  then  {  then  set  the  Dos  Critical  Flag  } 

If  Neat DosStat 1 . CS: DosStatl . IP]  <>  0  then 
nHlDosStat2.CS: DosStat2.  IP]  «=  IFF; 

regs.ax  :  =  15000;  {  Function  to  set  current  PSP  address  } 

regs.bx  :  =  segaent;  {  Segaent  of  PSP  to  be  used  by  DOS  ) 

NSDosI  regs  );  {  Execute  NSDos  function  request  ) 

{If  Version  less  then  3.0  and  INDOS  set  > 
If  DosVersion  <  3  then  {  then  clear  the  Dos  Critical  Flag  ) 

If  HeaCDosStatl.CS:DosStati.IP]  <>  0  then 
NeaIDosStat2.CS:DosStat2. IP]  100; 


END; 

i - - ) 

{  G  E  T  P  S  P  ] 

{ - } 


Procedure  6etPSP(var  segaent  :  integer  ); 

BEGIN 

{  A  bug  in  DOS  2.0,  2.1,  causes  DOS  to  clobber  its  standard  stack  } 

{  when  the  PSP  get/set  functions  are  issued  at  the  DOS  proapt.  The  ) 

{  following  checks  are  aade,  forcing  DOS  to  use  the  ‘critical*  ) 

{  stack  when  the  T5R  enters  at  the  INDOS  level.  ) 

(If  Version  less  then  3.0  and  INDOS  set  > 

If  DosVersion  <  3  then  {  then  set  the  Dos  Critical  Flag  } 

If  Hnl DosSt at  1 . CS : DosSt at  1 . 1 P 1  <>  0  then 
NnlDosStat2.CS:DosStat2.IP]  IFF; 

regs.ax  ;*  15100;  {  Function  to  get  current  PSP  address  ) 

NSDosI  regs  );  {  Execute  NSDos  function  request  ) 

segaent  :s  regs.Bxj  {  Segaent  of  PSP  returned  by  DOS  ) 

(IF  DOS  Version  less  then  3.0  and  INDOS  set  ) 
If  DosVersion  <  3  then  {  then  clear  the  Dos  Critical  Flag  } 


If  NHlDosStatl.CS: DosStatl. IP]  <>  0  then 
Nea(DosStat2.CS:DosStat2.IPl  :*  100; 

END; 

{ - > 

(  Get  Control  C  (break)  Vector  } 

I . ) 


11. 


*.*  I 


Arrayparaa  =  array  LI. .21  of  integer; 
orist 

SavedCtlC:  arrayparaa  =  (0,0); 

NeaCtlC  :  arrayparaa  r  (0,0); 

Procedure  6etCtlC(Var  SavedCtlCsarrayparaa); 

Begin  (Record  the  Current  Ctrl-C  Vector) 

Kith  Regs  Do 
Begin 
AH:  *13523; 

HsDos(Regs); 

SavedCt 1 CC 1 ) : SBX ; 

SavedCtlC(2):=ES: 


Set  Control  C  Vector 


Procedure  IRET; 

(Duaay  Ctrl-C  routine) 

Begin 

inline($5D/*5D/*CF); 

(Pop  Bp/Pop  Bp/Iret) 

end; 

Procedure  SetCtlCtVar  Ctl Cptr : arrayparaa) ; 

Begin 

(Set  the  Men  Ctrl-C  Vector) 

Kith  Regs  Do 

Begin 

AX: **2523; 
DS:=CtlCptr(2); 
DX:»CtlCptrtl); 
MsDos(Regs); 

Keyin  :  ReadKeaboard 


Function  Keyin:  char;  (  bet  a 

Var  Ch  :  char;  {  If  ext 

Begin  { - 

Repeat  until  Keypressed; 

Read (Kbd, Ch ) ; 

if  (Ch  *  Esc)  and  KeyPressed  than 
Begin 

Read (Kbd, Ch); 

Ch  :=  Char (Ord (Ch)  ♦  127); 

End; 

Keyin  :=  Ch; 

End;  (Keyin) 


(  bet  a  Key  froa  the  Keyboard 
(  If  extended  Key,  fold  above  127 


Sound  the  Morn 


Procedure  Beep (N  :  integer ) ;  { - - - - - - . — 5 

Begin  (  Thia  routine  sounds  a  tone  of  frequency  ) 

Sound (n);  {  N  for  approxiaateiy  104  as  ) 

Delay (100);  { - - - } 


;»rw wvjyjw  wj  wig^r^^TiFL^rwirryLTP^'a^jg^rwjiiyrgir^  ^uwwwnprsicw n^rwcrwinur* 


Sound (n  div  2); 

Delay(lOO); 

Nosound; 

End  (Beep)  ; 


{ - } 

{  INTERRUPT  24  } 

{ - } 


{  Version  2.0,  1/28/86 
-  Bela  Lubkin 

CompuServe  76703,3015 

Apologetically  tangled  by  Lane  Ferris 

For  NS-DOS  version  2.0  or  greater,  Turbo  Pascal  1.0  or  greater. 

Thanks  to  Marshal  1  Brain  For  the  original  idea  For  these  routines. 
Thanks  to  John  Cooper  For  pointing  out  a  stall  Flat  in  the  code. 

These  routines  provide  a  eethod  For  Turbo  Pascal  prograts  to  trap 
NS-DOS  interrupt  24  (hex).  INT  24h  is  called  by  DOS  when  a  ’critical 
error’  occurs,  and  it  noraally  prints  the  Fati liar  'Abort,  Retry, 
Ignore?*  tessage. 

Nith  the  INT  24h  handler  installed,  errors  oF  this  type  till  be  passed 
on  to  Turbo  Pascal  as  an  error.  IF  1/0  checking  is  on,  this  will  cause 
a  progras  crash.  IF  1/0  checking  is  oFF,  IOResult  till  return  an  error 
code.  The  global  variable  INT24Err  till  be  true  iF  an  INT  24h  error 
has  occurred.  The  variable  INT24ErrorCode  till  cottain  the  INT  24h 
error  code  as  given  by  DOS.  These  errors  can  be  Found  in  the  DOS 
Technical  ReFerence  Manual. 

It  is  intended  that  INT24Result  be  used  in  place  oF  IOResult.  Calling 
INT24Result  clears  IOResult.  The  siaple  tay  to  use  INT24Result  is  just 
to  check  that  it  returns  zero,  and  iF  not,  handle  all  errors  the  sate. 
The  tore  coaplicated  tay  is  to  interpret  the  code.  The  integer 
returned  by  INT24Result  can  be  looked  at  as  two  bytes.  By  assigning 
INT24Result  to  a  variable,  you  can  then  exaaine  the  t«o  bytes: 

(Hi  Kvariable»-1)  will  give  the  DOS  critical  error  code,  or 
({variable)  And  tFFOO)  till  return  an  integer  Frot  the  table  listed  in 
the  INT24Result  procedure  (too  nays  oF  looking  at  the  critical  error); 
Lo«variable»  till  give  Turbo’s  IOResult.  A  critical  error  till 
alnays  be  reFlected  in  INT24Result,  but  the  IOResult  part  of 
!NT24Result  Mill  not  necessarily  be  nonzero;  in  particular, 
unsuccessful  nrites  to  character  devices  till  not  register  as  a  Turbo 
1/0  error. 

INT24Result  should  be  called  after  any  operation  thich  tight  cause  a 
critical  error,  if  Turbo’s  1/0  checking  is  disabled.  If  it  is  enabled, 
the  prograa  nill  be  aborted  except  in  the  above  noted  case  of  nrites  to 
character  devices. 

Also  note  that  different  versions  of  DOS  and  the  BIOS  sees  to  react  to 
printer  errors  at  vastly  different  rates.  Be  prepared  to  nait  a  while 


jarjxsn+^wrtTm  rj  ruwwvwvwvwvwvrjwvwitrioni^Tii”\."w*iurvT."v.i’  KrvFWX*  up  h*  n» kw  v nr  nr  wmxr.v'xrjr^ww '.-v  J* ?w ,t Tawnn;i 


for  anything  to  happen  (in  an  error  situation)  on  sou  eachines. 

These  routines  are  known  to  aork  correctly  Mith:  Turbo  Pascal  1.00B  PC-DOS; 

Turbo  Pascal  2.00B  PC-OOSj 
Turbo  Pascal  2.00B  RS-DOS; 
Turbo  Pascal  3.01ft  PC-DOS. 

Other  MS-DOS  and  PC-DOS  versions  should  work. 

Note  that  Turbo  2.0’s  noraal  IOResult  codes  for  MS-DOS  DO  NOT 
correspond  to  the  I/O  error  nuabers  given  in  Appendix  1  of  the  Turbo 
2.0  aanual,  or  to  the  error  codes  given  in  the  1/0  error  nn, 

PC=aaaa/Prograe  aborted  aessage.  Turbo  S.O  IOResult  codes  do  Batch  the 
aanual.  Here  is  a  table  of  the  correspondence  (all  nuabers  in 
hexadeciaal): 


Turbo  2.0  IOResult  Turbo  error,  Turbo  3.0  IOResult 


00 

00 

none 

01 

90 

record  length  aiseatch 

02 

01 

file  does  not  exist 

03 

FI 

directory  is  full 

04 

FF 

file  disappeared 

05 

02 

file  not  open  for  input 

06 

03 

file  not  open  for  output 

07 

99 

unexpected  end  of  file 

OB 

F0 

disk  ante  error 

09 

10 

error  in  nueeric  foreat 

0A 

99 

unexpected  end  of  file 

0B 

F2 

file  size  overfloa 

OC 

99 

unexpected  end  of  file 

00 

F0 

disk  arite  error 

0E 

91 

seek  beyond  end  of  file 

OF 

04 

file  not  open 

10 

20 

operation  not  allowed  on  a  logical  device 

11 

21 

not  alloaed  in  direct  node 

12 

22 

assign  to  standard  files  is  not  allowed 

— 

F3 

Too  eany  open  files 

-  Bela  Lubkin 

CoapuServe  76703,3015 
1/28/B6  ) 


Const 

INT24€rr:  Boolean=False; 

INT24ErrCode:  Byte=0; 

Old INT24:  Array  I1..21  Of  Integer* (0,0); 

Var 

RegisterSet:  Record  Case  Integer  Of 

1:  (AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags:  Integer); 
2:  (AL , AH, BL, BH, CL, CH, DL, DH:  Byte); 

End; 

Pruedure  INT24;  {  Interrupt  24  Service  Routine  } 

14. 


Inline*  42E/IC6/40A/  Int24£rr  /  I01/I50/I89/IF8/I2E/M2/  Int24ErrCode 
/l58/$B0/$00/*89/tEC/$5D/*CF) ; 


Turbo: 

PUSH 

BP 

HOV 

BP,  SP 

PUSH 

BP 

Inline: 

nov 

BYTE  CSt  C INT24Er r 1,1 

PUSH 

AX 

NOV 

AX,DI 

HOV 

CS:UNT24ErrCodel,AL 

POP 

AX 

HOV 

AL,0 

HOV 

SP,  BP 

POP 

BP 

IRET 

Save  caller’s  stack  fraae 
Set  up  this  procedure’s  stack  fraae 

? 

Set  !NT24Err  to  True 

6et  INT  25h  error  code 
Save  it  in  INT24ErrCode 

Tell  DOS  to  ignore  the  error 
Unnind  stack  fraae 

Let  DOS  handle  it  froa  here  } 


I  N  T  2  4 


{  Grab  the  Critical  error  ptr  froa  the  previous  user) 
Procedure  INT240n;  I  Enable  INT  24h  trapping  ) 

Begin 

INT24Err:=False; 

With  RegisterSet  Do 
Begin 
AX: =43524; 

HsDos (RegisterSet) j 

If  (01dlNT24CU  Or  01dINT24C23) *0  Then 
Begin 

01dINT24U]j=ES; 

01dINT24t21:=BX; 

End; 

DS:=CSeg; 

DX :  =0f s ( INT24) ; 

AX:*42524; 

NsDosI RegisterSet); 


I  N  T  2  4 


{  bive  Critical  Error  Service  pointer  back  to  previous  user  } 
Procedure  INT240ff; 

Begin 

INT24Err:*False; 

If  01dINT24U]<>0  Then 
Hith  RegisterSet  Do 
Begin 

DS:s01dINT24Cll: 


DX:s01dINT24C21; 

AX: =$2524; 

HsDos(RegisterSet); 

End; 

01dINT24C 1 ] : =0; 

01dINT24E23:=0; 

End; 

Function  INT24Result:  Integer; 

Var 

I: Integer; 

Begin 

I:*I0Result; 

IF  IHT24Err  Then 
Begin 

I :=I+256ISucc (INT24ErrCode> ; 

INT240n; 

End; 

INT24Result:=Ij 

End; 

(  INT24Result  returns  all  the  regular  Turbo  IOResult  codes  iF  no  critical 
error  has  occurred.  IF  a  critical  error,  then  the  FolloNing  values  are 
added  to  the  error  code  Froe  Turbo: 

256:  Atteapt  to  write  on  write  protected  disk 

512:  Unknown  unit  [internal  dos  error! 

768:  Drive  not  ready  [drive  door  open  or  bad  drive] 

1024:  Unknown  coaaand  (internal  dos  error! 

1280:  Data  error  (CRC)  (bad  sector  or  drive! 

1536:  Bad  request  structure  length  [internal  dos  error! 

1792:  Seek  error  [bad  disk  or  drive! 

2048:  Unknown  eedia  type  [bad  disk  or  drive! 

2304:  Sector  not  Found  [bad  disk  or  drive! 

2560:  Printer  out  oF  paper  [anything  that  the  printer  sight  signal! 

2816i  Write  Fault  [character  device  not  ready! 

3072:  Read  Fault  [character  device  not  ready! 

3328:  6eneral  Failure  [several  aeanings! 

IF  you  need  the  IOResult  part,  use 
I:=INT24Result  and  255;  [aasks  out  the  INT  24h  code! 

For  the  INT  24h  code,  use 

I:=INT24Result  Shr  8;  [saee  as  Div  256,  except  Faster! 

INT24Result  clears  both  error  codes,  so  you  aust  assign  it  to  a  variable  iF 
you  want  to  extract  both  codes: 

J:*INT24Result; 

WriteLn ('Turbo  IOResult  *  ’,J  And  253); 

MriteLnI’DOS  INT  24h  code  >  ’,J  Shr  8); 

Note  that  in  aost  cases,  errors  on  character  devices  (LST  and  AIIX)  will  not 
return  an  IOResult,  only  an  INT  24h  error  code.  } 


v-w. 


•-  v  v 


{  Main  prograe.  Delete  next  line  to  enable  } 


GET  ERROR  CODE 


Procedure  GetErrorCode; 
Begin 

Error  :=  lOresult; 


{Read  the  I/O  result) 


If  lHT24Err  Then 
Begin 

Error  s=Error+256ISucc ( INT2*ErrCode) ; 

INT240n; 

End; 

6ood  :=  (Error  =  0);  (Set  Boolean  Result  ) 

End; 


{ttmtmmttmtmtitmmttmtitttmttmmtmmtmtmtm} 


{  H  I  N  D  0  .  INC  } 

{  '...but  I  dont  do  floors  !*  ) 

{ittmtmmtttttttmmttttmtmtmmttmtmttutmtimmt} 

{  Kloned  and  Kludged  by  Lane  Ferris  ) 

{  —  The  Hunters  Helper  --  } 

{  Original  Copyright  1984  by  Michael  ft.  Covington  } 

{  Modifications  by  Lynn  Canning  9/25/85  > 

{  1)  Foreground  and  Background  colors  added.  1 

{  Honochrooe  aonitors  are  autoeatically  set  > 

{  to  white  on  black.  } 

{  2)  Multiple  borders  added.  } 

{  3)  TiaeDelay  procedure  added.  } 

{  Requireaents:  18M  PC  or  close  coapatible.  ) 

( - ) 

{  To  aake  a  window  on  the  screen,  call  the  procedure  } 

{  MkNin(xl,yl,x2,y2,F6,B6,BD);  > 

{  The  x  and  y  coordinates  define  the  window  placeaent  and  are  the  1 

{  saae  as  the  Turbo  Pascal  bindow  coordinates.  } 

{  The  border  paraaeters  (BD)  are  0  =  No  border  } 

{  1  *  Single  line  border  ) 

{  2  -  Double  line  border  } 

(  3  -  Double  Top/Bottca  Single  sides  1 

{  The  foreground  (FE)  and  background  (B6)  paraaeters  are  the  saae  } 
{  values  as  the  corresponding  Turbo  Pascal  values.  1 

{  > 

{  The  aaxiaua  nuaber  of  windows  open  at  one  tiae  is  set  at  five  ) 
{  (see  Haxbin=5).  This  aay  be  set  to  greater  values  if  necessary.  > 
{  After  the  window  is  aade,  you  oust  write  the  text  desired  froa  the  } 
{  calling  prograa.  Note  that  the  usable  text  area  is  actually  1  > 

{  position  saaller  than  the  window  coordinates  to  allow  for  the  border.) 
{  Hence,  a  window  defined  as  1,1,80,25  would  actually  be  2,2,79,24  > 

{  after  the  border  is  created.  Mhen  writing  to  the  window  in  your  ) 
{  calling  prograa,  the  textcolor  and  backgrounds  or  aay  be  changed  as  ) 
{  desired  by  using  the  standard  Turbo  Pascal  coaaands.  ) 

{  ) 

{  To  return  to  the  previous  screen  or  win^.  call  the  procedure  ) 

{  Rabin;  } 

{  ) 

{  Tiu  TiaeOelay  procedure  is  invoked  froa  your  calling  prograa.  It  ) 
{  is  siailar  to  the  Turbo  Pascal  DELAY  except  DELAY  is  based  on  clock  ) 
{  speed  whereas  TiaeDelay  is  based  on  the  actual  clock.  This  aeans  ) 
{  that  the  delay  will  be  the  saae  duration  on  all  systeas  no  Batter  ) 
{  what  the  clock  speed.  } 

{  The  procedure  could  be  used  for  an  error  condition  as  follows:  ) 

{  HkMin  -  aake  an  error  aessage  window  ) 

{  Nriteln  -  write  error  aessage  to  window  } 

{  TiaeDelay (5)  -  leave  window  on  screen  5  seconds  } 

{  Rabin  -  reaove  error  window  } 

{  cent  processing  } 

i - ) 


Const 


InitDone  iboolean  -  false  ; 


{  Initialization  switch  ) 


OH  =  False  i 

VideaEnable  =  $08;  {  Video  Signal  Enable  Bit  1 

Bright  =  8;  {  Bright  Text  bit) 

None  =  7;  (HonoChroie  Hode) 

Type 

Iiagetype  =  array  [1. .40001  of  char;  {  Screen  liage  in  the  heap  > 
HinDiitype  =  record 

xl,yl,x2,y2:  integer 
®nd; 

Screens  =  record  {  Save  Screen  Intonation  } 

liage:  Iiagetype;  {  Saved  screen  liage  1 

Dn:  HinDiitype;  {  Saved  Hindoi  Dimensions  1 

x , y:  integer;  {  Saved  cursor  position  ) 

end; 


Var 

Win: 

(  filobal  variable  package  } 

record 

Dia:  HinDiitype; 

(  Current  WindoM  Dimensions  ) 

Depth:  integer; 

{  HaxHin  should  be  included  in  your  prograi  ) 

{  and  it  should  be  the  nuiber  of  HindoHs  saved  1 
(  at  one  tiae  } 

(  It  should  be  in  the  const  section  of  your  prograi  1 
Stack:  array(l..HaxWin]  of  ^Screens; 

end; 

Crtiode  : byte  absolute  $0040:10049 
Crtiidth  : byte  absolute  $0040:$004A 
Nonobuffer  : Iiagetype  absolute  $B000:$00O0 
Colorbuffer  : Iiagetype  absolute  $BB00 : $0000 
Crt Adapter  {integer  absolute  $0040:$0063 
VideoHode  :byte  absolute  $0040:$006S 
TurboCrtNode:  byte  absolute  Dseg:6; 

Vi deo_Buffer: integer; 

Delta, 

x,y  : integer; 


{ - ) 

(  Delay  for  X  seconds  ) 

( - } 


procedure  TiieDelay  (hold  i  integer); 
type 

RegRec  s  {  The  data  to  pass  to  DOS  ) 

record 

AI,  BX ,  CX,  DX ,  BP,  SI,  DI,  DS,  ES,  Flags  :  Integer; 


(Crt  Node, Nono, Color, BAM..) 
{Crt  Hode  Width,  40:80  ..  } 
CHonochroie  Adapter  Heiory) 
(Color  Adapter  Heiory  } 
(  Current  Display  Adapter  > 
(  Video  Port  Node  byte  ) 
(Turbo’s  Crt  Hode  byte  ) 
(  Record  the  current  Video) 


regs:regrec; 

ah,  al,  ch,  cl,  dh: byte; 
sec  :string(21; 

r»sult,  seen,  error,  secn2,  diff 

begin 
ah  :  =  (2c; 
uith  regs  do 


nnteger; 


ax  ah  shl  6  ♦  al; 
intr($21,regs); 

with  regs  do 
strldx  shr  8:2,  sec); 

if  (seed!  =  ’  ’)  then 
seed!:*  ’O’; 
vaKsec,  seen,  error); 
repeat 
ah  :=  $2c; 
with  regs  do 

ax  :*  ah  shl  8  ♦  al; 
intr((21,regs); 

Kith  regs  do 

strldx  shr  8:2,  sec); 
if  (seed!  *  ’  ’)  then 
seed]:*  'O’; 
vaKsec,  secn2,  error); 
diff  :*  secn2  -  seen; 
if  diff  <  0  then 
diff  :=  diff  ♦  60; 
until  diff  >  hold; 
end;  (  procedure  TioeOelay  1 


(Bet  Tiee-Qf-Oay  fro*  DOS) 
(Mill  give  back  Chshours  > 
(Cl :«inutes, Dh: seconds  ) 
(D1 ‘.hundreds  ) 


(6et  seconds  ) 
{with  leading  null) 


{Conver  seconds  to  integer) 

(  stay  in  this  loop  until  the  tiae  ) 
{  has  expired  ) 


(Get  current  ti*e-of-day) 


(Normalize  to  Char) 


(Convert  seconds  to  integer) 
(Nuaber  of  elapsed  seconds) 

Me  just  went  over  the  einute  ) 

so  add  60  seconds  ) 

has  our  tiae  expired  yet  ) 


6et  Absolute  postion  of  Cursor  into  parameters  x,y 


Procedure  6et_Abs_Cursor  (var  x,y  : integer ) ; 

Var 

Active_Page  :  byte  absolute  (0040:10062;  (  Current  Video  Page  Index) 
Crt_Pages  :  array(0..7]  of  integer  absolute  (0040:40050  ; 


X  :*  Cr t _Pages C ac t i ve jiage 1 ;  (  6et  Cursor  Position  ) 
Y  :*  Hi (X ) +1 ;  (  Y  get  Ron  ) 
X  :*  Lo(X)+l;  {  X  gets  Col  position  ) 


Turn  the  Video  On/Off  to  avoid  Read/Mrite  snou 


Procedure  Video  (Switch: boolean); 

Begin 

If  (Switch  *  Off)  then 

PorttCrtAdapter+4]  :=  (VideoHode  -  VideoEnable) 
else  PortICrtAdapter+4]  :=  (Videohode  or  VideoEnable); 

End; 

{ . . ) 

{  InitHin  Saves  the  Current  (whole)  Screen  1 


Procedure  Ini  twin; 

{  Records  Initial  Hindow  Dimensions  ) 

Begin 

with  bin. Die  do 

begin  xl:*l;  yl : =1 ;  x2:*crtwidth;  y2:*25  end; 

Min. Depth: =0; 

InitDone  :=  True  :  {  Show  initialization  Done  } 


BoxHin  Draws  a  Box  around  the  current  Hindow 


procedure  BoxMin (x 1 , y 1 , x2, y2,  BD,  F6,  B6  linteger); 


(  Draws  a  box,  fills  it  with  blanks,  and  eakes  it  the  current  1 
(  Hindow.  Dimensions  given  are  for  the  box;  actual  Hindow  is  } 
{  one  unit  smaller  in  each  direction.  } 


TB,SIO,TLC,TRC,BLC,BRC  nnteger; 
begin 

if  Crtaode  -  Mono  then  begin 
F6  :=  7; 

B6  0; 
end; 


Hindow(xl,yl,x2,y2); 
TextColor(FG)  ; 
TextBackground(B6); 


(hake  the  Hindow) 
(Set  the  colors) 


Case  BD  of 

0:; 

lsbegin 
TB  :*  196; 
S10  i»  179; 
TIC  i*  218; 
TRC  l»  191; 
BLC  :«  192; 
BRC  i«  217; 
end; 

2:begin 
TB  «*  205; 


{Hake  Border  characters) 

(No  border  option) 

(Single  line  border  option) 
(Top  Border) 

(Side  Border) 

(Top  Left  Corner) 

(Top  Right  Corner) 

(Bottos  Left  Corner) 
(Bottom  Right  Corner) 

(Double  line  border  option) 


InitHin; 


TurboCrtNode  :=  CrtNode;  (Set  Texteode  a/o  ClrScr } 

If  CrtNode  =  7  then  Video _Buffer  :=  *8000  {Set  Ptr  to  Honobuffer  > 

else  Video  Juffer  :®  *B800;  (or  Color  Buffer  } 


with  Win  do  Oepth:=Depth+l;  {  Increeent  Stack  pointer  1 

if  Hin.Depth>eaxNin  then 
begin 

writeln (A6, ’  Hindoas  nested  too  deep  ’); 
halt 
end; 

{ - ) 

{  Save  contents  of  screen  } 

{ - } 

Kith  Kin  do 
Begin 

NeafStacklDepthl);  {  Allocate  Current  Screen  to  Heap  } 

Video <  Off); 


If  CrtNode  =  7  then 

StacklDepthl*. Iaage  :=  eonobuffer  (  set  pointer  to  it  } 
else 

StackIDepthr.leage  colorbuffer  ; 


Video!  On); 
End  ; 


Mith  Nin  do 
Begin 

StacktDepth]\Die  :=  Die; 
Stacktbin. Depth]*. x  8®  aherex; 
Stacktbin. Depth]*. y  :=  aherey; 
End  ; 


{  Save  Screen  Di sent ions  1 


{  Save  Cursor  Position 


If  <X2  )  80)  then 
begin 

Delta  8  =  (X2  -  80); 

If  XI  >  Delta  then 
XI  s®  XI  -  Delta  ; 
X2  s®  X2  ••  Delta  ; 
end; 

If  (Y2  >  25)  then 
begin 

Delta  s®  Y2  -  25; 

If  Y1  >  Delta  then 
Y1  8®  Y1  -  Delta  ; 
Y2  8®  Y2  -  Delta  ; 
end; 


{  Validate  the  bindoa  Placeaent) 
{  If  off  right  of  screen  ) 


{  Overfloa  off  right  eargin  ) 


{  Nove  Left  aindoa  edge 
{  Hove  Right  edge  on  BO 


{  If  off  bottoe  screen 


{  Overfloa  off  right  eargin  1 


{  Nove  Top  edge  up 
{  Hove  Bottoe  24 


(  Create  the  Nea  Hindoa  ) 


» 

Sorarav 


(Shrink  aindoa  aithin  borders) 


R 


,s 

i 


s 


k 


BoxUin (x l,yl,x2,y2,BD,F6,B€); 
If  BD  >0  then  begin 
Hin.Dia.xl  :*  x 1+1 ; 
Hin.Dia.yl  :*  y 1+1 ; 
hin.Dia.x2  !*  x2-l; 
Km.Dia.y2  :s  y2-l; 
end; 


(  Alloa  lor  ear gins  ) 


end; 

■ 

( 


Reaove  hindoa 


'V 

'j 

{ . - . . 

- - ) 

'J 

{  Reaove  the  aost  recently  created  reaovable  Hindoa  } 

v 

!  Restore  screen  contents,  Hindoa  Diaensions,  and  1 

‘4 

(  position  of  cursor.  ) 

1 

Procedure  RaHin; 

p 

Var 

r\ 

Teapbyte  :  byte; 

a*. 

•*, 

e* 

Begin 

Video(Off); 

<r 

1 

>■ 

Hith  Hin  do 

Begin 

(  Restore  next  Screen  } 

> 

> 

If  ertaode  =  7  then 

aonobuffer  :*  Stack [Depth]*. leage 

else 

! 

colorbuffer  •.*  StacklDepthT.  Iaage; 

P 

C” 

Dispose (Stack [Depth]); 

{  Reaove  Screen  froa  Heap  ) 

J 

Video(On); 

tr 

Hith  Hin  do 

(  Re-instate  the  Sub-Hindoa  ) 

| 

Begin 

(  Position  the  old  cursor  1 

Dia  i*  Stack(Depth]A.Dia; 

> 

Hindoa(Dia.xl,Dia.yl,Dia.x2,Dia.y2); 

r 

> 

gotoxy (Stack [Depth!*. x, Stack (Depth!* 

•y>; 

> 

end; 

a* 

V 

6et_Abs_Cursor(x,yt  ;  {  hea  Cursor  Position  ) 

Teapbyte  (  6et  old  Cursor  attributes  ) 

Heat  Video_Buffer:((x-l  ♦  ly-1)  I  80  )  I  2)+l  1; 

TextColor (  Teapbyte  And  tOF  );  (  Take  Loa  nibble  0..13) 

TextBackground  (  blue  );  (  Take  High  nibble  0..9  ) 

Depth  :=  Depth  -  1 
end  ; 


end; 


-) 


24. 


£ 


j 


•  4 '•  *»»  M44i 


CLOCK 


Clock  Interrupt  Service 


(I  CLOCK _I8. Id  I) 

(t  Ft:  Neil  J.  Rubenking  [72267,15311 

On  each  call  to  1NT  8,  this  routine  checks  it  the  titer  is 
•running*.  If  it  is,  it  checks  if  the  activation  tiie  has 
been  reached.  If  it  has,  the  STATUS  byte  is  set  to  include 
the  'HotKeyJJn*  and  "Froijiter*  bits.  After  that,  control 
passes  on  to  the  STAY18.0BJ  code  I) 


ttNJRt) 

INLINE! 

*9C  / 

*2E/*F6/*O6/>Status/<Tieer_0n/ 

»7*/*29/ 

*50/ 

ME/ 

*B8/*40/»00/ 

*8E/*D8/ 

*Al/*6E/»00/ 

*2E/*39/»06/ >ti ter_hi / 

*75/*16/ 

»Al/*6C/*00/ 

*2E/*39/*06/>tieer_Lo/ 

*7D/*0C/ 

*2E/*80/*OE/>St atus/< Hotkey _0n/ 
*2E/*80/*0E/>Status/<frot  Titer 


(PUSHF5 

(TEST  BY  CS:status,  titer_on) 
(JZ  nothing} 

{PUSH  AM 
{PUSH  BS) 

{NOV  Al,40h) 

(NOV  DS,  AX } 

{HO V  AX ,  £  d>E  1  > 

(CHP  CS:tieer_hi,AX> 

{ JNZ  not.yet) 

{HO V  AX, C6C1) 

{CHP  CS:titer_Lo,AM 
{J6E  Not_Yet> 

{OR  BY  CSsstitus,  hotkey_on) 

/  {OR  BY  CSistatus,  frot_tieer) 


{Not  Yet) 
•IF  / 
*58/ 

(nothing) 

*90); 

(INJRI) 


(POP  DS) 
{POP  AM 


E  n  d  C  1  o  c  k  I 


WsSV 


Inlinc( 


{;  STAYI 13. 400) 

{; - > 

{;  Routine  to  Set  a  Flag  when  1NT  13  Disk  I/O  is  active! 

158  {  Pop  Bp  ;  Reeove  Turbo  stack  fraae) 

/PSD  {  Pop  Bp! 

/*2E  {  CS:> 

/*B0/*0E/>INTR_FLA6S/<INT13_0Nf  Or  by  t<Intr_flagsl,<INTl3_on  ;  Say  INT  13  is  Active) 

/*9C  {  Push!  ;  Invoke  Original  Disk  INT  131 

/$2E  {  CS:) 

/»FF/*IE/>BIQS_INT13  I  Call  de  C<BI0S_INT1311 

/*9C  {  Push!  ;  Save  Return  Flags) 

/12E  {  CS:) 

/*80/*2i/>INTR_FLA6S/<F0XS-INT13_0N{  And  by  [<Intr _flagsl,<Foxs-INT13_on;  Clear  INT  13  Active  flag) 
/$9D  {  Popf  ;  Retrieve  results  flags) 

/*CA/*02/*00  {  RETf  2  ;  Throe  away  old  flags) 


